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Prólogo 
del traductor 


De grandes piedras se hacen los castillos, pero los detalles que los 
embellecen no son más que guijarros. Un programa en BASIC puede 
llegar a ser todo lo robusto e “inteligente” que se quiera, pero tal vez no 
impresione tanto como la velocidad o posibilidades que conlleva el código 
máquina. No hay nada como juntar ambos lenguajes para obtener progra- 
mas de primera calidad. 

Este libro no pretende enseñarte nada que todavía ignores; sin embar- 
go, es muy posible que te aclare muchos de los secretos de tu Amstrad. 
Tampoco está escrito para que aprendas las instrucciones del microproce- 
sador Z-80 y su manejo, sino más bien para que conozcas las subrutinas y 
parte del sistema operativo de tu ordenador. De todas formas estoy seguro 
que algo te va a enseñar y que algo vas a aprender. 

No importa en absoluto que carezcas de conocimientos sobre el len- 
guaje máquina. La labor de este libro es llevarte más allá de los límites del 
BASIC y acercarte todo lo posible a las entrañas de tu Amstrad. Por eso 
el lenguaje máquina no es la meta del libro, sino tan sólo un medio. 
Difícilmente se encontraba hasta hace poco un libro para el Amstrad que 
no fuera de inicialización o aprendizaje. La poca literatura que trataba 
seriamente del tema estaba en lengua extranjera. Es más, allá por el año 
1984 en el que adquirí mi Amstrad, no había un solo libro que me 


enseñara cuáles eran las auténticas posibilidades del aparato. 


Se hacía necesario un libro así. Presentando individualmente cada una 
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de las posibilidades del ordenador, y obteniéndolas con la máxima veloci- 
dad. Dejando a la imaginación del usuario la combinación de cuantas 
rutinas quiera. Además, no está orientado hacia una aplicación específica, 
por lo que su utilidad es grande frente a todas las posibles exigencias. 
Rutinas en lenguaje máquina para Amstrad es verdaderamente un libro que 
no se puede soltar una vez abierto. Permite al usuario conocer más a 
fondo su ordenador, a la vez que resuelve multitud de problemas que 
resultan inviables desde el BASIC. Y refiriéndome a ti en concreto, obser- 
varás la cantidad de aplicaciones que se te ocurren según vayas probando 
una a una las rutinas aquí presentadas. Espero sinceramente que encuen- 
tres en este libro la solución a tus dudas y problemas con el ordenador. 


Notas sobre programas 
ensambladores 


Existen algunas diferencias entre los distintos programas ensamblado- 
res de código máquina. Unos ofrecen más facilidades, como el editado por 
Hisoft, y otros son más pequeños, pero igualmente válidos, como el de 
Honey Fold. 

La principal diferencia está en los directivos del ensamblador. Un 
directivo es una seudo-instrucción que sólo es entendida y efectuada por el 
propio ensamblador, y que no afecta para nada al programa en código 
máquina. Los listados de este libro fueron realizados con el programa 
DEVPAC de Amsoft, y los directivos que puedes encontrar en los listados 
deben ser interpretados del siguiente modo: 


ORG dirección: Indica al ensamblador la “dirección” de la me- 
| moria donde debe almacenar el código máqui- 
na. Suele insertarse al comienzo de los progra- 

mas. 


1] DEFW número: Reserva 2 bytes de la memoria, guardando en 

| ellos el byte bajo y alto del código binario 
equivalente al número. Un directivo análogo 
puede ser WORD. 


DEFB número: Reserva un byte de la memoria, guardando en 
él el código binario del número que le acompa- 


ña, El número debe estar en la gama 0-255. El 
directivo equivalente a éste, para otros ensam- 
bladores es: BYTE. 


DEFS número: Aumenta el valor del puntero el número de 
posiciones de memoria que indique “número”. 
Simplemente reserva bytes de memoria sin dar- 
les ningún valor concreto. 


DEFM “expresión”: Almacena consecutivamente en la memoria los 
códigos ASCIH de cada uno de los caracteres 
que contenga la “expresión”. Sirve para guardar 
mensajes y texto en general. Otro directivo 
equivalente es TEXT. 


Si no dispones de ningún programa ensamblador, podrás aprender en 
el capítulo 2 cómo guardar los bytes correspondientes a cada rutina en la 
memoria. Esos bytes vienen expresados en código hexadecimal en cada 
una de las rutinas. 
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| Introducción 


ba Una de las más desalentadoras perspectivas que se presentan ante el 
| programador de código máquina es el diseño de pequeñas rutinas para 
ordenador, tales como escribir cadenas de caracteres, guardar bloques de 
datos en el cassette o sistema de almacenamiento, o incluso leer caracteres 
¡ del teclado. Estas rutinas aparecen a menudo en todo tipo de programas, 
pero el trabajo inicial de escribirlas puede resultar tedioso. Afortunada- 
mente las rutinas presentadas en este libro resuelven el problema. Todas 
ellas han sido probadas en el Amstrad CPC 464 con sistema de cassette; 
pero funcionan igualmente bien en el modelo 664 que incorpora unidad de 
disco, aunque en algunos casos habrá que hacer pequeñas modificaciones. 
Las rutinas de pantalla han sido diseñadas para su uso sin ventanas 
definidas; pero si prefieres definirlas también funcionarán sin problemas. 
/ En general las rutinas trabajarán correctamente en los tres modos de 
CITE y algunas resultarán de gran utilidad para el programador de 
IC, 


Los programas fueron listados utilizando el ensamblador DEVPAC de 
Amsoft. Quisiera expresar mi agradecimiento a los editores que me propu- 
sieron llevar a cabo esta obra y también reconocer la ayuda de Amsoft en 
la preparación de este libro. Finalmente, me gustaría dedicárselo a mi 
madre y a mi padre por todos los años de tolerancia especial que me han 
demostrado. 

También quiero agradecer la colaboración de algunos gatos del barrio, 
que demostraron la posibilidad de programar un microordenador incluso 
ante el ataque de un gato. 


JOE PRITCHARD 
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PRINTER. 
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Lenguaje máquina 
| en el Amstrad 


Este libro te ofrecerá una amplia variedad de rutinas en código máqui- 
na listas para funcionar; sin embargo, para obtener mayor provecho a la 
hora de programar, te vendrán bien algunos conocimientos sobre progra- 
mación en código máquina en el Amstrad y unas cuantas notas sobre la 
estructura del sistema operativo. 


Las rutinas en este libro 


Por supuesto, lo primero que hay que hacer es introducir los progra- 
mas en el ordenador. El mejor método para conseguirlo es usar un 
programa ensamblador, como el Amstrad DEVPAC publicado por Am- 
soft. Alternativamente podemos usar la orden POKE para introducir los 
bytes directamente en memoria. Estos bytes son los que conforman el 
programa en código máquina. En este libro verás que todos los programas 
aparecen listados de la siguiente forma: 


Dirección Código Listado 

en memoria hexadecimal en ensamblador 
9008 200004 LD H,0000 
e Ence cau esbco 


DOE co RET 


Empleo 
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de modo que puedas usar cualquiera de los dos métodos. El listado en 
ensamblador puede ser tecleado en un programa ensamblador y los bytes 
en hexadecimal pueden ser almacenados en memoria mediante POKE por 
distintas vías, de las cuales la más sencilla es un programa BASIC de este 
tipo: 


10 FOR 1=0 TO N : REM N=numero de bytes 

20 READ As 

30 POKE (direccion+1),VAL("£"+A$) 

40 REM direccion, es donde el codigo se 
almacenara en la memoria. 

50 NEXT 

60 DATA DD,6E,00,DD,66,01,7E,DD,6E,02,DD 
, 66, 03,86, 77,09 


o0o0 oo 


La sentencia DATA contiene las representaciones hexadecimales de los 
bytes que conforman el programa. Es obvio que este método es muy útil 
para combinar rutinas en lenguaje máquina con programas en BASIC, 
función que se realiza a menudo. El hecho de que los programas se listen 
con bytes hexadecimales permitirá usar las rutinas del libro a aquellos 
programadores sin acceso a un ensamblador. 

Muchas de las rutinas se escribirán de forma que funcionen en cual- 
quier dirección de memoria disponible por el usuario sin alteración: a 
estos programas los llamaremos “relocalizables”. Otras en cambio requie- 
ren una dirección concreta en la memoria para. poder funcionar. Tales 
rutinas serán “no relocalizables”, y habrá Yue realizar algunos cambios 
para conseguir que funcionen en dirección distinta a la asignada. De 
cualquier modo detallaré todo aquello que sea necesario para que realices 
esos cambios. Así podrás seleccionar entre las rutinas listadas en este libro 
aquellas que precises para una aplicación concreta y también cargarlas en 
memoria donde quieras. 

Sin embargo, ¿en qué posición de la memoria del ordenador puede 
almacenarse el código máquina? Si ya has realizado pequeños programas 
en código máquina en el Amstrad, quizá prefieras pasar por alto esta 
sección y reincorporarte en el estudio de la rutina CALL. Pero si quieres 
refrescar conocimientos sobre el tema, allá vamos, 


de la memoria en el Amstrad 


La zona denominada “depósito de memoria” es el área de memoria 
utilizada para almacenar nuestros programas en BASIC y sus variables. 
Todos los programas que escribamos en código máquina deben ser prote- 
gidos contra superposiciones accidentales del programa en BASIC, y de- 


ben ser preservados de los destrozos del resto del sistema operativo, que 
usa varias áreas de memoria como espacio de trabajo. La forma de crear 

h esta área protegida de memoria es bastante simple: “capturamos” parte del 
depósito de memoria y vedamos la entrada al BASIC, 


REF y, > == 2 
1 
RAM Bota 1 
de pantalla dae : 
Et, 
8.C000 Pila 
espacio de trabajo 
EA | Mapa simplificado 
[caracteres definidos de la memoria del 
por el usuario Amstrad 
HIMEM 


A 


depósito ! 
] de memoria ROM J 
DEL 1 
so. ¡ 
80040 
¡IA A Jl 
E RAM ROM 


Al último byte de RAM disponible para el BASIC se le asigna un 
nombre especial —HIMEM— y la orden PRINT HIMEM devolverá 
siempre la dirección del último byte de memoria disponible para BASIC 
en cada momento. Poniendo en marcha el sistema, la dirección es 43903 o 
8zABTF. En estas circunstancias el byte de la dirección 43904 es parte de 
la definición del carácter número 240, que es el primer carácter definible 
por el usuario de que dispone el programador al conectar el ordenador. 

Nos “adueñamos” de parte de la memoria disponible normalmente por 

» el BASIC decrementando en la memoria el valor de HIMEM hacia la 
dirección $:0000. Esto tiene por efecto la creación de un espacio entre 
HIMEM y el primer byte de la zona de caracteres definibles por el 
usuario. Desplazamos el valor de HIMEM usando la orden MEMORY. 
Por ejemplo: 


MEMORY 39999 


!] localizará a HIMEM en la dirección 39999, permitiéndonos usar el espacio 
situado entre las direcciones 40000 y 43903, ambos inclusive, para las 
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rutinas en lenguaje máquina, Esto es suficiente para la mayoría de las 
aplicaciones. Habrá que tener en cuenta un par de cuestiones sobre el uso 
de la orden MEMORY. La primera es el uso aconsejable de SYMBOL 
AFTER para reservar espacio a tantos caracteres definidos por el usuario 
como requiera tu programa, antes de usar MEMORY para variar el valor 
de HIMEM. La segunda es que SYMBOL AFTER no funcionará correc- 
tamente mientras algún fichero del sistema de cassette permanezca abierto. 
Esto es así porque la apertura de un fichero produce una variación en el 
valor de HIMEM de forma que SYMBOL AFTER no lo hallará donde 
esperaba. 

Por eso, usando MEMORY, podemos reservar una zona a salvo para 
nuestros programas en código máquina en la que almacenar mediante 
POKE los bytes que constituyen los programas, tal y como mencioné 
anteriormente en este capítulo. Ahora hemos de conseguir que actúe el 
código máquina. Esto lo logramos a través de la sentencia CALL. 


a los programas en código máquina 


Los programadores del Amstrad tenéis suerte al contar con la senten- 
cia CALL; la mayoría de los ordenadores caseros tienen una escasa 
comunicación entre el BASIC y el lenguaje máquina. La sentencia CALL 
del Amstrad está muy mal documentada en la Guía del usuario del Amstrad 
CPC 464, pero en realidad es una orden muy versátil y polifacética. Como 
la usaremos continuamente a lo largo del libro para llamar a nuestras 
rutinas, vamos a examinarla con cierto detalle. 

Puedes utilizar la instrucción de dos formas distintas. He aquí un 
ejemplo de ambas formas de operar: 


CALL — £BD19 
CALL  40000,A%, BZ, C% 


La primera de ellas simplemente provoca la ejecución de la rutina en 
lenguaje máquina localizada en la dirección £BD19 de la memoria RAM 
del Amstrad. La segunda sentencia produce la ejecución de la rutina de la 
dirección 40000, pero además hace que la rutina de lenguaje máquina 
disponga del valor actual de las variables A%, B% y C% del BASIC, 
Comprobarás que esto es muy útil. Las variables A%, B%, y C% se 
denominan PARAMETROS de esta llamada CALL. Ahora que conoce- 
mos este uso más técnico de la sentencia, podemos conseguir una interac- 
ción directa de los números y cadenas de variables entre el BASIC y 
nuestras rutinas en código máquina. 

Así pues, vamos a profundizar en la llamada CALL y sus parámetros. 
En este libro consideraremos únicamente las rutinas que usan números 
enteros y cadenas; la experiencia ha demostrado que la mayoría de las 


aplicaciones que trabajan con una matemática compleja y números reales 
se ejecuta mejor en BASIC. Esto se debe en parte a que la realización de 
los programas en código máquina lleva más tiempo, y generalmente no 
son tan eficientes como las rutinas presentes en la ROM de BASIC para el 
cálculo de operaciones aritméticas complejas. 

Se distinguen tres amplias clases de parámetros que pueden ser transfe- 
ridos como parte de una sentencia CALL, y una sentencia puede contener 
tantos parámetros como puedas incluir en una línea (limitada a 255 
caracteres). Claro está que los parámetros de una determinada sentencia 
CALL pueden pertenecer a cualquiera de las tres clases. Los tipos de 
parámetros son: 


1. Un número, como 100, 2 ó 1000; un nombre de una variable entera, 
y como A%: o una expresión que evaluada dé como resultado un 
entero. El valor transferido debe pertenecer al intervalo (0, 65535), 
aunque, como veremos más tarde, hay un par de puntos a tratar con 
precaución. Si una variable entera actúa como parámetro, como A%, 
y al ser incluida en la sentencia CALL no se le asignó un valor previo, 
entonces la variable será considerada como portadora del valor 0. Un 
ejemplo de este tipo de sentencia CALL sería 


CALL 40000,A% 


donde 40000 es la dirección de la rutina llamada, y A%, es el 
parámetro. 

j 2. El nombre de una variable entera precedido del carácter * (a como 
(wA),. Este método de transferir un parámetro numérico a una rutina 
de código máquina también permite una transferencia de información 
en los dos sentidos, hacia y desde el programa en lenguaje máquina, 
como pronto vamos a ver. 

3. Una variable literal precedido por “+”, Esta es la única forma de 
transferir cadenas de caracteres a rutinas de código máquina. No 
podemos pasar cadenas constantes como “José” a una rutina, sino 
sólo las variables. 


Ahora, ¿cómo podemos acceder a los parámetros transferidos a los 

programas en código máquina? Al comienzo de la rutina en la dirección 

4 llamada, dos de los registros de la CPU han sido modificados por el 

intérprete de BASIC para ayudarte a acceder a los parámetros transferi- 

dos. El registro A contiene el número de estos parámetros, y el registro 

índice IX apunta a un área de memoria llamada bloque de parámetros, 

que utiliza dos bytes para cada parámetro transferido a la rutina de 

código máquina. 1X apunta a los parámetros del modo indicado en la 

figura; el contenido exacto de cada dos bytes de entrada dependerá del 
tipo de parámetro. 


CALL 40000,paral,para2 
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A A A 


Registro A=2 
(+3) 


(1x+2) 


(X+1) 


l——— (1X) apunta aquí 


Examinaremos ahora el contenido de lo que cabe encontrar en cada 
bloque de parámetros de entrada para cada tipo de parámetro, 
Números o variables enteras 
Aqui se incluyen elementos como A%, o 5, y el bloque de parámetros 


de entrada contendrá una representación del número en binario de dos 
bytes. Así, para CALL 40000,3 el bloque de entrada sería: 


A 
well Ud 
bajo [32 e (80) apura aquí 
Y 


Una pequeña cuestión a tener en cuenta: en las dos llamadas 


CALL 40000,-1 
CALL 40000,65535 


se entenderá como bloque de parámetros de entrada £FFFF, ya que ésta 
es la representación en complemento a dos de —1; que es el sistema que 
utiliza el Amstrad para almacenar internamente los enteros negativos, Así, 
si intentamos transferir un valor como 65535 a una rutina en código 
máquina dentro de una variable entera, como 


AX=65535: CALL  40000,A% 
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se producirá un error de desbordamiento, porque las variables enteras sólo 
pueden tomar valores dentro del intervalo —32768 a 32767. Resulta bas- 
tante fácil introducir en un registro o un par de registros los valores 
contenidos en el bloque de parámetros. 


LD L, (IX+0) 3 Byte bajo. 
LD H, (IX+1) 5 Byte alto. 


Variables precedidas de Q 


Hasta aquí, la comunicación entre el BASIC y el lenguaje máquina ha 
sido tratada en un solo sentido: hemos aprendido a transferir valores 
desde el BASIC al código máquina, pero no a la inversa, La utilización de 
(2 nos permitirá hacerlo. El bloque de parámetros de entrada para un 
parámetro de este tipo no será ahora el valor de la variable, como en el 
caso de AY o 5, sino la dirección de la variable; esto es, el lugar donde se 
ha almacenado la variable en la memoria de BASIC. 

Por ejemplo: 


CALL 40000, HZ 


generará un bloque de parámetros que contendrá la dirección en RAM de 
la variable H%. En cuanto al argumento, supongamos que los dos bytes 
del bloque de parámetros de entrada contienen el valor 20000, Ésto 
indicaría que el byte bajo de H%, está almacenado en la dirección 20000 y 
que el byte alto de H%, está almacenado en la dirección 20001. Esquemáti- 
camente, esto se puede mostrar así: 


byte alto o alto 
(09 —[——byo bajo 7 13 
Bloque de parámetros Area de almacenamiento de variables 


La utilidad de todo esto, como verás, es que, alterando los valores 
contenidos en los dos bytes utilizados para almacenar el valor de H%, 
estaremós alterando su valor desde nuestro programa en lenguaje máqui- 
na. Así en este ejemplo que asigna el valor 7 a H%, cargaríamos 7 en la 
posición 2000 y O en la posición 20001. Como pequeña demostración, 
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AX, tendría que ser inicializada a O antes de hacer la llamada (CALL). 
Como el programa afecta únicamente al byte bajo de la variable en la 
memoria, n tendrá que tener un valor comprendido entre 0 y 255, Por 
supuesto que cualquier nombre de variable entera puede ser usado y no 
sólo A%. Así: 


jose/=0:CALL 40000, Rjosez, 6 
paco/=0:CALL 40000,Bpacoz, 67 


son ambas expresiones correctas. En el primer caso, jose% tomará el valor 
6 después de la orden CALL, y en el segundo caso, paco%, contendrá el 
valor 67. n puede ser también una variable, siempre que no tenga el pre- 
fijo a. 

a Una última cuestión sobre el uso de (a. Este prefijo permite al usuario 
acceder a la dirección de cualquier variable determinada, siempre y cuando 
la variable en cuestión haya sido previamente utilizada, incluso si se ha 
inicializado con el valor 0. Si intentas hacer una llamada mediante la 
orden CALL, usando (2 con una variable aún no inicializada, el Amstrad 
te responderá con un mensaje de error. La explicación es obvia: si una 
variable aún no ha sido utilizada, el intérprete de BASIC no tendrá 
ninguna dirección en la que pueda almacenar el bloque de parámetros. Es 
decir, aún no conoce esa dirección. Cada vez que inicialices una variable, 
el BASIC creará un espacio en memoria para cada una, asignándole a esa 
dirección el nombre de la variable que hayas creado. Este espacio será 
preservado, ya estés trabajando en código máquina o en BASIC. 


Transferencia de cadenas 


Aunque toda constante numérica, como “1” ó “4000”, puede ser trans- 
ferida a los programas en código máquina, aún no podemos pasar cadenas 
constantes como “Hola” o “Amstrad” a una rutina en código máquina. 
Para transferir cadenas literales debes asignarlas a variables literales como 
M3, PEZS, etc. Como en el caso anterior, estas variables deben estar 
precedidas por el carácter (2. 

De nuevo habrá que inicializar la variable literal antes de ser utilizada 
en una sentencia CALL, permitiendo así al intérprete de BASIC trabajar 


en la memoria, allí donde se encuentre almacenada la cadena. Una senten- 
cia que contiene una variable literal es, por ejemplo: 


A$="PACO": CALL 40000,8A$ 


Los dos bytes del bloque de parámetros de entrada para este tipo de 
parámetros serán interpretados de la siguiente forma. Estos apuntan hacia 
un área de la memoria llamada BLOQUE D. RIPTOR de la cadena, el 
Cual nos suministra información útil sob '3/Cadena literal. 


A 
byte alto de o 
la dirección e (3 
byte bajo de A 

() 

CADENA 
Ñ 
El descriptor no itha de la cadena y su paradero en la 


memoria. 

Es cierto que también se puede usar la orden POKE para alojar en 
ciertas posiciones de memoria los valores de la cadena, y después hacer 
que tus rutinas de código máquina accedan a ellas. Y la orden PEEK 
puede ser utilizada para extraer desde el BASIC los valores almacenados 
por el lenguaje máquina. Sin embargo, CALL nos proporciona un método 
elegante y eficiente para todos los casos, jncluso los más sencillos, de ahí 
su uso frecuente en este libro. 

A continuación, y antes de meternos con el uso de las llamadas al 
sistema operativo de la ROM, veremos algunas indicaciones sobre la 
utilización de las rutinas en lenguaje máquina del Amstrad. 


1. Utilización de los registros alternativos: 


Bajo ninguna circunstancia deberás usar los registros alternativos del 
Z-80. Todos ellos son utilizados por el sistema operativo con diferentes 
propósitos, y dado que el SO puede requerir alguno de ellos en cualquier 
momento, podría ser fatal intentar alterar el contenido de cualquiera de 
estos registros. 


2. Superposición de la RAM sobre la ROM: 


Gracias a una inteligente artimaña del diseñador, la ROM que contiene 
al sistema operativo ha sido superpuesta a la RAM que puede ser utiliza- 
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da para almacenar el BASIC o los programas en código máquina. Asimis- 
mo, la ROM que contiene el BASIC está superpuesta a la memoria de 
pantalla. En circunstancias normales, la RAM será accesible al programa- 
dor; si quieres leer directamente en la ROM tendrás que hacerlo con cierta 
habilidad. 


3. Estado de los registros en la CPU: 


A menudo las rutinas de la ROM utilizadas tienden a dejar algunos 
registros alterados, y en muchos casos el registro de flags también se 
altera. Por ello, si quieres conservar algún registro, deberás almacenarlo en 
la pila mediante la orden PUSH antes de llamar a las rutinas de la ROM. 


4. La orden CALL: 


Al trabajar con rutinas en código máquina se suele aconsejar la preser- 
vación de los registros antes de retornar al BASIC desde una rutina 
llamada mediante la orden CALL. Sin embargo, he comprobado que la 
máquina recupera todo muy bien sin necesidad de todo esto, cuando se 
utiliza la orden CALL. 


Utilización de llamadas a la ROM 


Utilizaremos rutinas de la ROM del Amstrad para aquellas funciones 
más comunes, tales como escribir en la pantalla o leer un carácter del 
teclado. Todas estas rutinas son accesibles llamando a direcciones concre- 
tas de la memoria RAM, mediante el uso de la instrucción CALL del Z-80 
que manejamos desde los programas en código máquina. Al conectar o 
reinicializar el aparato, el sistema operativo se encarga de preparar estas 
direcciones. Todas estas rutinas se encuentran en un área de la memoria 
llamada BLOQUE DE SALTOS, y todas las llamadas a las rutinas de la 
ROM deberán pasar previamente por el mismo, debido a las razones que 
paso a exponer. 

La primera razón, que examinaremos después con más detalle, es que 
la ROM se encuentra normalmente inhibida, y, por ello, para usar cual- 
quier rutina de la ROM, debemos primero habilitarla. Esto lo realiza 
automáticamente el bloque de saltos con cada rutina en particular. La 
segunda es que las direcciones de este bloque de saltos están garantizadas 
por Amstrad, sin importar cuántas versiones diferentes haya del sistema 
operativo, Así, una llamada a la dirección $¿BBSA siempre cederá el 
control a la rutina del SO que imprime un carácter en pantalla, sea cual 
sea la versión del SO que gobierne el aparato. Esto convierte al Amstrad 
en una máquina a “prueba del futuro”, asegurando que las posibles 
alteraciones del sistema operativo no invalidarán programas ya escritos en 
las primeras versiones del SO. 


La tercera y última razón es que podemos alterar el bloque de saltos 
para una rutina en concreto del sistema operativo, y variar con ello el 
comportamiento del mismo en determinados casos. 


El bloque de saltos 


Ocupa un área bastante grande de la RAM, justo encima del depósito 
de memoria, y permite acceder a todas las rutinas importantes del sistema 
operativo y a algunas de las rutinas de la ROM que contiene el BASIC. A 
continuación se muestra una entrada típica del bloque de saltos. 


DIRECCION EN MEMORIA VALOR 
16618 po 

1eB19 156 Byte bajo de la direccion. 
ABBA 298 Byte alto de la direccion: 


8:CF es un código un tanto especial en el Amstrad; descrito con 
sencillez, £CF especifica un salto a una rutina contenida en la ROM en la 
dirección cuyo código viene dado por los dos bytes que le acompañan. 
Los dos bytes de dirección, en este ejemplo £9B56, son codificados del 
siguiente modo: 


Bit 15, Este bit de la dirección controla la ROM del BASIC. Si se 
encuentra activado (*1”), entonces la ROM de BASIC permanecerá inhibi- 
da. Si se encuentra en el estado 0, entonces la ROM de BASIC es 
habilitada. 


Bit 14, Este bit de la dirección controla la ROM del sistema operati- 
vo, Igual que antes, si su estado es “1”, la ROM del SO estará inhibida, y 
si su estado es O, la ROM del SO podrá ser utilizada. 


Los bits O a 13 de la dirección especifican la dirección de la rutina 
contenida en la ROM seleccionada por los dos bits de mayor peso antes 
mencionados. Coneretando el ejemplo, escribamos el valor de 8:9B56 en 
binario. 


FONO OEA OA PALO 
Bit 15 Bit O 


En este caso, el bit 15 está puesto a 1, por lo que inhibirá la ROM que 
contiene el BASIC. El bit 14 está puesto a O, lo que quiere decir que la 
rutina se encuentra en la ROM del sistema operativo, que permanece 
habilitada gracias a este bit. La dirección contenida en los bits O al 13 es 
8:1B56, siendo precisamente la dirección de la rutina contenida en el SO 
que será llamada normalmente con una orden CALL dirigida al bloque de 
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saltos en £:BBI8. El byte 8CF no es el código de una instrucción 
propiamente dicha del Z-80; más bien es una “seudo-operación” imple- 
mentada por Amstrad para esta particular aplicación. 

Veremos más adelante cómo alterar el bloque de saltos para aumentar 
o sustituir las funciones normales del sistema operativo. Si haces esto, el 
8:C3, código de JP, remplazará a £CF, y los dos bytes siguientes compon- 
drán la dirección en RAM de la rutina que hayas escrito. Así, una entrada 
en el bloque de saltos como 


AS 
200 
Lao 


provocará un salto a la rutina en la dirección £4A000. La rutina podrá 
terminar entonces de dos formas diferentes: la primera es con una 
instrucción RET que hará que la rutina que has añadido sustituya total- 
mente a la función normal del sistema operativo; la segunda es terminar 
tu programa con el contenido original del bloque de saltos, comenzando 
con el byte £CF. Observa que parchear de esta forma el sistema operativo 
puede causar problemas con posteriores versiones del mismo. En este 
último caso, primero se ejecutará tu rutina y posteriormente el control 
a la rutina del SO. 

¡Y esto es todo! El resto del libro contiene aquello que te ha animado 
a adquirirlo: rutinas en código máquina preparadas y documentadas para 
el Amstrad. Espero que experimentes a fondo con las rutinas; posiblemen- 
te las desarrolles y perfecciones consiguiendo incluso mayor versatilidad. 


Rutinas de 
salida de textos 


En BASIC la salida de textos es bastante fácil, pues contamos con la 
orden PRINT que realiza todo el trabajo. Pero esto no es así en código 
máquina, por lo que tendremos que encadenar varias rutinas para conse- 
guir algo tan corriente como escribir en la pantalla mensajes y números. 
Veremos algunas de ellas en este capítulo. 

La primera se llama ECADEN, que significa Escribe CADENA, y nos 
permite escribir mensajes en la pantalla. 


ECADEN (Escribe CADENa) 


Escribe una cadena de caracteres en el cauce (Stream) seleccionado y en 
la posición de pantalla especificada. El color será el asignado a los textos. 
Los códigos de control se imprimen en pantalla, pero no tienen efecto. La 
rutina es relocalizable, 


Requisitos de entrada: — B será la coordenada X. 
C será la coordenada Y. 
IX apunta a la cadena en memoria. La cadena 
debe terminar con un CHRS(0). 


Condiciones de salida: Todo alterado. 


Longitud: 37 bytes 


28 ECADEN +1 


2518 DDES 20 Pus 1x 

251A  COSABR 30 CALL dBBSA; — Permite la salida de caracteres 
385 por el cauce (pantalla ) 

2510 3ElF 40 Lo aer 

Z51F COSABO so CALL WbBsay — Posiciona el cursor de textos 

2522 78 50 LD AB mediante CHRS(31) 

2523 COSABR 70 CALL mbesa 

2526 79 so Lo Ac 

2527  COSABR 50 CALL AbESA 

52M DDE1 100 PoR 1x 

2320 DO7EOO 110 BUCLE LD A,(IX+O)jExtrae caracter 

252r  FE0o 120 ce obs Es cero ? 

2551. C8 130 RET z5 Si así es, termina 

2532 D0ES 140 PusH rx 

2554 COSOBS 150 CALL NBBSD; — Imprime el caracter 

2537 DEL 180 POP 1X 

2539 DD23 170 INC IX Apunta hacta el siguiente caracter 

2539 198F 180 IR BUCLES Repite el ciclo 

Comentarios 


Si una frase o un mensaje es demasiado largo y se sale de la línea en 
que se inició, continuará en la siguiente línea. 

El mejor modo de ver este programa en funcionamiento es teclear el 
programa de muestra que se lista a continuación. Se añaden algunas 
instrucciones en código máquina, pero sólo para inicializar los registros 
antes de llamar a la rutina ECADEN. Estas instrucciones adicionales son: 


LD IX,89040 5 Direccion de la cadena 
LD Bynn $ Coordenada X introduci 
LD Con 3 Coordenada Y introduci 


Cuando se llama a la rutina ECADEN los valores de los registros B y 
C deben ser apropiados para el modo de pantalla que se esté utilizando en 
ese momento. El programa en BASIC es: 5 


10 REM Demostracion de ECADEN 

20 MEMORY 39999 

30 WINDOW 41,1,20,20,25 

40 CLS 

50 GOSUB 1000 

60 LOCATE Hl,t,1 

70 INPUT 81, "Posicion de X 

80 INPUT 41,"Posicion de Y 

90 INPUT 4l,"Cadena :“ja$ 

100 FOR I=1 10 LEN(a$) 

110 POKE (39999+1),ASC(MIDS (as, 1)) 

120 NEXT 

130 POKE (39999+1),0: REM Finaliza la 
cadena en memoria 

140 POKE 40205,x:POKE 40207,y 3 REM 


pd 1 al? E 


Introduce las coordenadas X e Y 
150 CALL 40200 
160 CLS 41 
170 GOTO 60 
1000 REM Rutina que efectua el POKE del 
codigo maquina 
1010 FOR 1=0 10 44 
1020 READ a$:POKE (40200+1),VAL ("8"+a$) 
1030 NEXT 
1040 RETURN 
1050 DATA DD,21,40,90,06,00,0E,00 5 
REM Inicializacion de los registros 
1060 DATA DD,ES5,CD,54,BB,3E, 1F,CD,SA, BB, 
78,CD,S5A,BB,79,CD,5A, BB,DD,E1,DD,7E 
,00,FE,00,C8,DD,ES,CD,5D,BB, DD,El, 
DD,23,18,EF 


eco o 90% 00 0 


Y$,0:70078 O 70 


La ejecución de este programa te permitirá situar en la pantalla una 
cadena desde el código máquina. 

Te habrás dado cuenta de que en la rutina antes expuesta usamos un 
código de control, en este caso el código ASCII 31, para situar el texto en 
la pantalla. La guía del usuario de Amstrad muestra los distintos códigos 
de control disponibles, y explica sus efectos. Examinaremos ahora una 
rutina corta que nos permite usar estos distintos códigos de control desde 
nuestros programas, de forma que podamos aprovechar a fondo las facili- 
dades que ofrece el ordenador Amstrad. 

Por cierto que la lista podrás encontrarla en las páginas 2 a 5 del 
capítulo 9 de la guía del usuario. Una rápida ojeada al mismo te revelará 
muchos códigos de utilidad. Además también verás que cada código de 
control tiene un carácter imprimible asociado al mismo, siendo este carác- 
ter el que aparece en la pantalla con la rutina ECADEN. La siguiente 
rutina que estudiaremos, ECONTR, no imprime nada en la pantalla, sino 
que EJECUTA los códigos de control; de esta forma, al transferir 
CHRS(7) a ECONTR, se generará un pitido en vez de imprimirse el 
carácter asignado a este código que sería un pequeño “invasor del es- 
pacio”. 


ECONTR (Envía código CONTRol) 


Envía una cadena de códigos de control a la VDU de textos. La rutina 
es relocalizable, 


Requisitos de entrada: B contiene el número de caracteres, 
IX apunta a un bloque de memoria que contiene 
los códigos. El código del carácter que se encuen- 


tre en la dirección a la que apunta IX será el 
primero en ser enviado. 


Condiciones de salida: AF, BC e IX son alterados. 


Longitud: 14 bytes. 
105 ku ECONTR »+ 
25p1 CoSaDO 20 CALL WBBSA 5 Activa la VDU de texto 
25B4 DD7E00 30 BUCLE LD A, (1Xe0) 
2587 COSADA 10 CALL ÁbBsa 5 Envia el codigo de control 
25Ba— 0025 so TAC 1 
23500 10F6 20 DINZ BUCLE 5 Todo realizado 7 
23BE co 70 RET 5 Si. 


A modo de demostración en cuanto a su uso, el siguiente ejemplo 
muestra cómo usar ECONTR para definir un carácter —, equivalente en 
código máquina a la orden SYMBOL. En la memoria se ha dispuesto un 
bloque de bytes que contiene los datos para el carácter. Así, para 
SYMBOL 240, 1, 3, 7, 15, 31, 63, 127, 255, tendríamos que colocar el si- 
guiente bloque: 


n+? 255 ultimo byte de la definicion 
127 
63 
31 
15 
7 
3 
1 
n+1 240 caracter a definir 
n+0 25 codigo de control de SYMBOL 


ECONTR 


10 MEMORY 39999 

20 PRINT CHR$(240) 

30 GOSUB 90 

40 RESTORE 150 

50 FOR I=0 TO 9: READ A:POKE (40000+1),A 
2 NEXT 

60 CALL 40200 

70 PRINT CHR$(240) 

80 END 

90 FOR 1=0 TO 19 

100 READ A$: POKE (40200+1),VAL("2"+A8) 


90110 09,70 TO E) e 


110 NEXT i 
120 DATA 06,0M,DD,21,40,9C ! 
130 DATA CD,54,BB,DD,7E,00,CD,SA,BB,DD, ! 


o; 23, 10,F5,C9 jo 
l 140 RETURN + j 
oi 150 DATA 25,240,1,3,7,15,31,63,127,255 Mo) 
h H 


Supongamos que n=41000. 
El código de máquina para llamar a ECONTR será simplemente 


LD 1X,41000 
LD B,10 
CALL ECONTR 
RET 


Si examinas la lista de los códigos de control aprenderás a usar 
ECONTR para cambiar el color de la pluma y del papel del texto, y 
tendrás la oportunidad de cambiar el color usando ECONTR en combina- 
ción con ECADEN. 

Hasta aquí sólo hemos visto cómo situar una cadena de textos en la 
posición del cursor de texto. Pero, ¿qué ocurre con el código máquina 
equivalente a la orden TAG del BASIC? GCADEN te permite situar el 
texto en el cursor de gráficos, y también especificar los puntos de pantalla 
que median entre los caracteres que constituyen la cadena. 

GCAD2 es una versión ampliada de GCADEN que te permite usar 
una orden CALL ampliada para poder utilizar esta rutina desde el BASIC 
con mayor facilidad. 


GCADEN (CADENa en Gráficos) 


Imprime una cadena en el color asignado a gráficos y en las coordena- 
das X e Y especificadas. El espacio entre caracteres escritos también puede 
predeterminarse. Esta rutina es relocalizable. 


Requisitos de entrada: BC contiene el número de puntos de pantalla 
entre caracteres. 
HL coordenada Y. 
DE coordenada X. 
IX apunta a la cadena en memoria. 


La cadena debe finalizar con CHRS(0). 


Condiciones de salida: Todos los registros alterados. 


Longitud: 37 bytes. 
10; ee GCADEN ee 

2702 05 20 EcADEN PUSH Ber el valor de 108 
30; e apta 


2703 05 40 
2704 so 
2703 CDCoBR so 
705 
2708 EL so 
2709 Di 30 
Z70a Ct 100 
2708 DD7E0O 110 LD A,(1X90)5 Examina el caracter 
Z70E FEOO 120 CP 005 Sies cero, termina 
2710 ce 130 RET z 
EP 180 PUSH BC 
2712 05 150 PUSH DE 
273 ES 160 Pus Ho 
2714 COFCEB 170, CALL ABBFC; Imprime el caracter en donde se 
1004 encuentre el cursor de graficos 
zm e 190 Por HL 
2718 01 200 POP DE 
2719 CL 210 PoR 
Z7iA ES 220 PUSH Hi; Guarda en la píla la coordenada Y 
2718 05 230 PUSH DEJ > -Almacena la coordenada X 
240 + en el regístro HL 
are El 250 Por 
271D AF 260 XOR Aj Pone a cero el acarreo 
2718 EDAA z70 ADC HL,BCj Actualiza la coordenada X 
2720 ES 280 PUSH HOJ Retorno de X 
2721 DL 290 POR DEF al registro DE 
2722 El 300 POP HL; Rescata de la pila el valor de Y 
2723 DD23 310 INC 1X5 Apunta a la direccion 
320 + del siguiente Caracter 
2725 1008 330 JR GCADENSVuelve a Comenzar 
o; GCADEN to 
A 10 MODE 1 l 
H 20 MEMORY 39999 (no 
30 CLS h 
o 40 GOSUB 1000 o) 
50 LOCATE 1,20 , 
o 60 INPUT “CADENA :",A$ lo 
70 FOR I=1 TO LEN(AS) 0 
o 80 POKE (39999+1) ,ASCIMIDS(AS, 1)) Lo 
90 NEXT i 
o 100 POKE (39999+1),0 H 
110 CALL 402004 ES 
o 120 GOTO SO i 
1000 FOR 1=0 10 49 o) 
1010 READ A$ Í 
= 1020 POKE (40200+1), VAL ("2“+A$) Ko) 
1030 NEXT i 
o 1040 RETURN o) 
1050 DATA DD,21,40,90,11,C8,0,21,C8,0,1, ; 
o 10,00 to 
1060 DATA CS,DS,E5,CD,CO,BB,E1,D1,C1,DD, H 
o 7€,00,FE, 00, CB, CS,DS, ES, CD,FC,BB,El | y 
1070 DATA D1,C1,ES,DS,E1,AF,ED,4A,ES,DL, Ñ 
o E1,DD,23,18 h 
o) 
h 


1080 DATA DB 


Comentarios 


En esta rutina, todo texto que exceda del borde derecho de la pantalla 
se perderá. El valor de BC puede variarse según tus necesidades, pero los 
valores siguientes te ofrecerán un buen punto de partida: 


Es obvio que los valores almacenados en DE y HL como coordenadas 
X e Y también dependen del modo de pantalla que se esté utilizando. El 
programa que a continuación expongo, GCAD2, es un método que te 
permite experimentar más fácilmente con esta rutina, pues contiene las 
Instrucciones precisas para obtener los parámetros desde una sentencia 
CALL, en BASIC. 


GCAD2 (CADena en Gráficos 2) 
A esta rutina se accede mediante 
CALL direccion,xZ,yZ,b%, Bas 


donde x% es la coordenada X, y% es la coordenada Y, b% es el espacio 
entre caracteres, y aS representa la cadena que se va a imprimir. Por 
supuesto, los tres caracteres numéricos también pueden ser constantes; 
“dirección” es la dirección donde está almacenada la rutina. 

En vez de repetir el listado de GCADEN, listaré las instrucciones extra 
que se precisan para aislar los parámetros, y luego proporcionaré un 
programa en BASIC para probar la rutina. GCAD2 tiene 71 bytes de 
longitud, incluyendo GCADEN. 


10; mn GCADZ ea 
259D FE94 20 ce. 
259 co 30 RETO NZp 
49 5 
250 DDEEOO 50 LD L,(IX+9»3 Toma la direccion de 
25A3 DD6691 .e LD M)CIXe1)5 la cadena del descriptor 
2546 23 79 INC Hs 
2507 3E 80 LD ctm) 
2508 23 90 INC HL 
2509 36 199 LD” B,(M)3 Almacena esa direccion en BC 
2504 C3 119 PUSH BC 
25AB-— DD4E9Z 120 LO C,cIxez 
Z3AE DD4603 130 LD B,(IX+3)5 Ahora el par BC guarda 
139 3 e amiento de 
2591 DDÉEO4 150 LDL, cIxes) 
25B4  DD6G9s 168 LD MH) «IX+5)3 Coordenada Y en el par 
170 5 de registros HL 
25B7 DOSEO% 180 LD E, (1x6) 
25BA DDS407 19 LD D,(1X*7)3 Coordenada X en el par DE 


25BD DEL 200 POR 1%; Direccion de la cadena en IX 


El resto del programa es igual que GCADEN. Observa que, al igual 
que en GCADEN, la cadena de caracteres que se va a escribir debe 
terminar con CHR$(0). El programa en BASIC expuesto a continuación 
demuestra el funcionamiento de GCAD2. 


T 
; 

El 10 MODE 2 pe 
20 MEMORY 39999 H 

o, 30 GOSUB 1000: REM Inserta en memoría el pes 
codigo maquina h 

o 40 LOCATE 1,22 10 
50 INPUT “Cadena "3A$ H 

o 60 AS=A$+CHR$ (0) :REM Incluye el caracter vo 
final H 

o 70 INPUT "Coordenada X :",XZ lo 
80 INPUT “Coordenada Y :",Y%Z H 

o 90 INPUT "Espacio entre caracteres :"3B% E 

100 CALL 40200, XZ,YZ, BZ, 20%: REM 

Llama a la rutina H 

o 110 GOTO 40 LO 
1000 REM Introduccion de los bytes E 

o mediante POKE . Observa que si o] 
cambias la direccion, tambien has ¡ 

o de cambiarla en la linea 100 o 

1010 FOR 1=0 TO 70 i 

o 1020 READ Aé: POKE (40200+1),VAL (“2"+A8) lo 

1030 NEXT ¡ 

o 1040 DATA FE,04,C0,DD,£E,00,DD,66,01,23, lo 
4E,23, 46,C5, DD, 4E,02,DD, 46,03, DD, 6E H 
,04,DD,66,05,DD,5E,06,DD,56,07,DD, H 

o EN Ko) 

1050 DATA CS,D5,E5,CD,CO,BB,E1,D1,C1,DD, 1 

o 7E,00,FE,00,C08,C5,D5,ES,CD, FC, BB, El jo 
+D1,C1,ES,DS,E1,AF,ED,4A,ES,D1,E1, ¡ 

o DD,23,18,DB lo 

1060 RETURN ¡ 

0 e Lo 


Aunque veremos con más detalle las operaciones con gráficos en el 
capítulo siguiente, no estará de más aquí un pequeño receso para explicar 
cómo puede cambiarse el color de la pluma de gráficos. Lo menciono aquí 
porque el texto escrito a través de GCADEN o GCAD2 se imprimirá en 
el color actual de los gráficos. Una rutina de ROM llamada GRAPLUMA 
te permitirá fijar el color de la pluma de gráficos. 


GRAPLUMA (PLUMA de GRAficos) 
Cambia el color de la pluma de gráficos. 


Requisitos de entrada: A es el color de pluma elegido. 
Condiciones de salida: AF alterado. 


No tienes más que acceder a la dirección £BBDE mediante CALL. 
Así, 


LD At 
CALL  BBDE 
RET 


fijará el color de gráficos con la PLUMA 1. 


Impresión de números 


Es muy fácil imprimir números en BASIC; no hay más que usar 
PRINT. Sin embargo, no existe una orden similar en código máquina, por 
lo que tienes que escribir tu propia rutina para resolver el problema. Las 
rutinas que escriben el contenido de los registros de la CPU bajo forma 
numérica pueden resultar muy útiles, tanto para un programa de utilidad 
como para exponer un simple marcador en un programa de juegos. 
Concluiremos este capítulo sobre salida de textos examinando una varie- 
dad de rutinas que realizan las siguientes funciones: 


1. Escribir el contenido del registro A como número binario, hexade- 
cimal o decimal. 


2. Escribir el contenido del par de registros HL como número bina- 
rio, hexadecimal o decimal. 


Vamos a comenzar con la impresión de números en binario. 
EBINA (Escribe el registro A en BlNario) 
Escribe el contenido del registro Á como un número binario de ocho 


dígitos en la pantalla, en la posición y el color actual del texto. La rutina 
es relocalizable. 


Requisitos de entrada: A contiene el número que se va a escribir. 
Condiciones de salida: AF, BC alterados. 
Longitud: 26 bytes. 
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256D 4F 20 CBINA LD C,A 3 Guarda una copia de A 

256E 0408 30 LD B,8 5 Ocho bits en el registro A 

2570 CB21 20 BUCLE SLA C 5 Desplazaunbita la izquierda 
50; quedando en el acarreo el bit 
605 de mayor peso 

2572 3809 70 JR C,CERO 

2574 3E3O E LD_ A,03O 5 Es el codigo ASCII para *o” 

2576 CS 90 PUSH BC 

2577 COSABB 100 CALL ABBSA 5 Impráme un *0” 

2574 C1 110 POP ac 

2578 1807 120 JR QUT 

257D 3ES1 130 CERO LD A,W31 5 Codigo ASCII para “1” 

297F CS 140 PUSH BC 

2580 CDSABB 150 CALL ABBSA 5 Lo imprime 

2583 C1 160 POP BC 

2584 108 170 OUT DINZ BUCLE 5 Se han desplazado todos los bits ? 

2586 09 180. RETO 3 Al terminar, regresa al programa 
190 5 principal 


Puedes probar esta rutina con el siguiente programa en BASIC: 


10 MEMORY 39999 T 

20 FOR 1=0 TO 27 4 

30 READ AS 

40 PUKE (40200+1),VAL ("2"+A$) 

50 NEXT: CLS 

$0 INPUT "Valor 

70 POKE 40201,A 

80 CALL 40200 

90 PRINT:GOTO 60 

100 DATA SE,FF,4F,06,08,CB,21,38,09,3E, 
30,C5,CD,5M,BB,C1,18,07,3E,31,C5,CD, 
SA, BB,C1, 10,E0,C9 

110 DATA 06,10,CB,25,CB,15,38,0B,3E,30, 

C5,ES,CD, 5A, BB,E1,C1,18,09,3E,31,C5, 

ES,CD,5A, BB,E1,C1,10,EA,C9 


o” AED e a 


l 
¡ 
| 


Una aplicación muy útil de esta rutina es la visión que te da del estado 
de los distintos indicadores o flags en el registro de flags. Es obvio que el 
registro F debe ser copiado en el registro A antes de poder hacer esto, 
pero ello no conlleva excesiva complicación. 

La siguiente rutina escribe el contenido de HL de modo similar. 


EBINHL (Escribe HL en BlNario) 


Esta rutina escribe el contenido del par HL como un número binario 
de dieciséis dígitos. El número se imprime en el color y en la posición 
actual del cursor de textos. Esta rutina es relocalizable. 


Requisitos de entrada: HL contiene el número. 
Condiciones de salida: AF, BC y HL alterados. 


Longitud: 31 bytes. 

2508 0610 10 EBINHL LD B,16 5 Es un numero de 16 dígitos 

2510 Ce25 20 BUCLE Sa L'5  Desplaza los 16 bits un bit 
30 + a la izquierda 

2512 CB1s 30 RL OM 5 Bit de mayor peso en C 

2514 3008 so JR C,CERO 

2516 3ES0 so LO ASNSO 5 Codigo ASCIE para 0 

2518 05 70 Pusu Be. 

2519 80 PUSH HL 

2510 COSABD 90 CALL eBBSA ; Lo escribe en pantalla 

2510 El 100 PoR HL 

251E Ct 110 POP BC 

251F 1009 120 JR SALIDA 

2521 3ES1 130 CERO LD A/WS1 5 ASCII de 1 

2825 CS 130 PusH BO 

2524 ES 150 Pus HL 

2525 COSABB 160 CALL %BBSA 5 Escribe el 1 

2528 EL 170 POP ML 

2529 Cl 180 Pop BC 

2520 1084 190 SALIDA DJNZ BUCLE ; Sí aun quedan dígitos, 
200 5 volver Otra vez 

2520 09 210 Rer 


El programa en BASIC equivalente a esta rutina sería: 


o 


10 MEMORY 39999 
20 FOR 1=0 TO 33 

30 READ As 

40 POKE (40200+1), VAL ( 
50 NEXT:CLS 

60 INPUT "Valor"sA 

70 alto=1NT (A/256) 

bajo=A- (altor254) 
90 POKE 40201,bajo 

100 POKE 40202,alto 
110 CALL 40200 

120 PRINT:GOTO 60 

130 DATA 21,00,00 

140 DATA 06,10,CB,25,CB,14,38,0B,3E,30, 
C5,ES, CD, 5A, BE,E1,C1,18,07,3E,31,05, 
ES,CD,SA, BB,E1,C1,10,E4,09 


o 


0530-00 O 


[-] 
o 


¡A 
0.0.0 0.0 


o 


De todos modos se suele optar por la impresión del contenido del 
registro en modo decimal o hexadecimal. Las dos rutinas que a continua- 
ción expongo tratan de la escritura de números en representación hexade- 
cimal. 


E] 


EHEXA (Escribe A en HEXadecimal) 


Escribe el contenido del registro A como un número hexadecimal de 
dos dígitos, en la posición y color actuales del cursor de texto. La rutina 
es relocalizable, 


Requisitos de entrada: A contiene el número. 
Condiciones de salida: AF, BC alterados. 
Longitud: 


0800 3 B es usado como flag 

añ 

carr ¡Las siguientes instrucciones trasladan 
CRI 3 los 4 bits de mayor peso 

CR1E zona de menor peso 

CBIF registro A 

ESOF una mascara de esta zona 

FEOA mayor o igual que 10 

2008 

C6zo 


cs 
COSABB MBBSA + Escribe el digito 
1806 SALIDA 
0437 A,W37 + Convierte el contenido de A 
en un caracter entre A y F 
cs Be 
COSABB. MBBSA 5 Lo escribe 
cl E 
78 AB 3Examína el flag, sí es 1 
Feos 1 5 todos los digitos han sido escritos 
ce 7 ;Vuelve al comienzo 
79 AC tcon el segundo digito preparado 
0601 By1  5Activa el flag Bcon 1 
18€2 ESCBAJ 


Puedes introducirlo en la memoria mediante la orden POKE de la 
siguiente forma: 


10 REM en EHEXA ** 

20 MEMORY 39999 

30 FOR 1=0 10 42 

20 READ AS 

50 POKE (40200+1),VAL("£"+A$) 

60 NEXT:CLS 

70 INPUT "Valor para el registro A "¡A 

80 POKE 40201,A 

90 CALL 40200 

100 PRINT 

110 GOIO 70 

120 DATA 3E,00 

130 DATA 06,00,4F,CB,1F,CB,1F,UE, 1F,UB, 
1F,E6,0F,FE,0A, 30,08, 06, 30,05, CD, 5A, 


BB, 18,06,C6,37,U5,0D,5M,BB,01,78,FEs | 
01,08,79,06,01,18,E2 to 
H 


o 


En el cuerpo de esta rutina se hallan las dos instrucciones de adición 
que transforman los valores de O a 9 en sus correspondientes códigos, y 
los dígitos de A a F en sus correspondientes códigos ASCII. 


EHEXHL (Escribe HL en HEXadecimal) 


Escribe el contenido del par de registros HL como un número hexade- 
cimal de cuatro dígitos. El número se escribe en la posición y el color 
actual del cursor de texto. El código es no relocalizable, y los bytes que 
doy a continuación deben cargarse en la dirección 41000. Sin embargo, 
consulta los comentarios para ver cómo puedes alterar el código. 


Requisitos de entrada: HL contiene el número. 
Condiciones de salida: AF, BC alterados. 


Longitud: 51 bytes. 
10 EME Lo 
2 cn Elena 
So oa 
PS En Eon 
so mer 
20 Emexa LD Bo 
5 PS 
so IS 
50 A 
100 mA 
E ES 
120 EScRAJ AND or 
10 CO on 
ao JR NEjRar 
150 200 eso 
10 Pus Be 
179 COLL. a55GA 
180 SA SALIDA 
150 MSF ADD Ap037 
200 Pus DE 
En COLL. esosa 
220 SALIDA POr be 
En ES 
200 e 4 
Ze ñEr 2 
Era o Ac 
E Lo e 
200 Sn EbcaAs 


El programa BASIC que puedes utilizar para introducir la rutina en la 
memoria del ordenador es: 


10 REM a. EHEXHL *n 

20 MEMORY 39999 

30 FOR 1=0 10 6 

20 READ As 

SO POKE (4020041), VAL ("E “AAS) 

60 NEXT:CLS 

70 FOR 1=0 TO 49 

80 READ AS 

90 POKE (41000+1),VAL("E"+As) 

100 NEXT 

110 INPUT "Valor del registro HL "5A 

120 PUKE 40202, INT(A/256) 

130 POKE 40201, (A-((INT(A/256))4256)) 

140 CALL 40200 

150 PRINT 

160 GOTO 110 

170 DATA 21,00,00,CD,28,40,09 

180 DAIA 7C,CD,31,A0,7D,CD,31,A0,C9,06, 
00, 4F,CB,1F,CB, 1F,CB, 1F,CB, 1F,E6,0F, 
FE, 0, 30,08,C6, 30,05, CD, 5M, BB, 18,06, 
C6,37,C5,CD,5A,BB,C1,78,FE,01,08,79, 
06,01,18,E2 


0105" 40 Poo pp O 


CN O AA 


Comentarios 


Si eres observador, habrás advertido que EHEXHL equivale simple- 
mente a dos llamadas a EHEXA. Aquí comienzan los problemas con la 
relocalización del código; al haber diseñado parte del programa dentro de 
una subrutina, su dirección dependerá de aquella donde el programa esté 
almacenado en memoria. Si EXEXHL se carga en la dirección N, entonces 
EHEXA se hallará en la dirección (N+9). Así, los bytes (N +2) y (N+6) 
deberán alterarse de forma que contengan el byte bajo de esta dirección; y 
los bytes (N-+3) y (N-+7) deberán modificarse hasta contener el byte alto 
de la dirección de EHEXA. 

La última rutina de impresión de números que veremos escribe el 
contenido de los registros en decimal. Antes de verla, convendría que 
echaras un vistazo al algoritmo utilizado. 

Es un simple caso de sucesivas restas de las potencias de 10 del 
número a imprimirse, hasta que el resultado sea negativo. Entonces añadi- 
remos al resultado la potencia de 10, reconvirtiéndolo en un número 

| positivo. El número de veces que determinada potencia de 10 haya sido 
! sustraída será el dígito para esta potencia de 10 en concreto. Entonces se 
escribe el dígito. El proceso se repite con la siguiente potencia de 10 
inmediatamente inferior, y así sucesivamente, hasta que se sustraigan las 
| unidades, quedando como número tratado el valor O. Así, para un registro 
| de ocho bits, tendremos que sustraer, por orden, las centenas, las decenas 


y, finalmente, las unidades. Estas rutinas son útiles para muchas aplicacio- 
nes como tablas de puntuación, e impresión de números de línea para 
juegos en código máquina, impresión de números de línea para rutinas de 
utilidad en código máquina, etc. 


EDECA (Escribe A en DECimal) 


Escribe el contenido del registro A en la posición y color actuales del 
cursor de texto, como un número decimal de tres dígitos. La rutina es no 
relocalizable, pero aun así consulta los Comentarios. Los siguientes bytes 
funcionan correctamente en la dirección 41060. 


Requisitos de entrada: A contiene el número. 
Condiciones de salida: AF, BC, DE resultan alterados. 


Longitud: 30 bytes. 

2512 1664 10 EDECA LD D,100 

2314 CDIEZS 20 CALL EDEC 5 Escribe las centenas 

2317 1608 30 LD 0,10 

2519 CDIEZS so CALL EDEC 5 Escribe las decen: 

251C 1601 so LD DA 

251E 0800 $0 EDEC_ LD cio 3 C actua como contador 

2520 92 70 BUCLE SUB D 3 Resta la potencia de dierj 

2521 3803 so JR C,SALIDA j sí el resultado es negativo, salta 
2323 00 0 mec 

2324 10ra 100 A BUCLE 

2526 82 110 SALIDA ADD A,D 3 Restaura a A cono positivo 

2527 FS 120 PUSH AF 

2528 79 130 Lo AC 

2329 Cézo 140 ADD A,830 ¡Convierte al contador en un digito 
2528 COSABR 150 CALL MBBSA 3 y lo escribe por pantalla 

2525 Fl 160 PoR ar 

252F C9 170 RETOS Terminado el ciclo 


Y su equivalente en BASIC: 


10 REM Ax EDECA *x 
20 MEMORY 39999 

30 FOR 1=0 10 5 

40 READ As 

50 POKE (40200+1),VAL("E"+A$) 

60 NEXT:CLS 

70 FOR 1=0 TO 29 

80 READ AS 

90 POKE (41060+1) VAL ("E"+A8) 

100 NEXT 

110 INPUT "Valor del registro A "A 
120 POKE 40201,A 

130 CALL 40200 


140 PRINT ; 
150 GOTO 110 h 
160 DATA 3E,00,CD,64,A0,C9 y 
170 DATA 16,64,CD,70,A0,16,0A,CD,70,A0, o) 
16,01, 0E,00,92,38,03,0C,18,FA,82,F5) l 
79,C6,30,CD, 5A, BB,F1,C9 H 


Comentarios 


Si la rutina anterior se almacena en otra dirección que no sea 41060, 
digamos dirección N, entonces la subrutina PDEC se situará en la direc- 
ción (N+12). Las posiciones (N +3) y (N+8) deben contener el byte bajo 
de la dirección (N + 12); y las posiciones (N +4) y (N+9) deben contener el 
byte alto de la dirección (N+ 12). 


EDECHL (Escribe HL en DECimal) 


Escribe el contenido del par de registros HL bajo la forma de un 
número decimal de cinco dígitos, en el color y la posición actual del cursor 
de texto. La rutina es no relocalizable. Los siguientes bytes funcionarán 
correctamente en la dirección 41200, pero me remito a los comentarios 
para mayores detalles sobre el funcionamiento de la rutina en otras 
direcciones. 


Requisitos de entrada: HL contiene el número. 
Condiciones de salida: AF, HL, DE son alterados. 


Longitud: 46 bytes. 

2902 111027 10 EDECHLD DE,10000 

En 2 y useribo las decenas: de aítiar 

ose Tiesos 30 LO bEr1000 

0 cuen do Y Escribe ls unidades de millar 

Zane ileso 30 LO e.1oo 

Ze cucneS eo ELL EDECN 1 Escribe las centenas 

2504 110400 70 LD DE,10 

2007 Cocos do ELL EDEDM 3 Escribe las decenas 

ca oros O Des 

ES 100 EDECH XOR A a 

Ze y 9 mae ser 

Ze 120 es Pone a 0 el 4109 de acarreo 

300 Ebs2 eS S0E hejor y Realiza da sustracción 

02 sos 130 SA CsÉaLIDA) hasta que sua negativa 

EAS Lo Te A 

E E] 3 bucLe 

E 170 saLIDA ADD MLSDE hactendoro positivo 

EOS loo 20D AS8SO 1 Convierte el Contador an un 
1505 PASAN 

2500 ES 20 usa Ha 

E ESC Masa y 10 escribe 

E 2 ERA 

EE EOS mer 


| 


10 REM sek EDECHL xx 

20 MEMORY 39999 

30 FOR 1=0 TO 6 

40 READ As 

50 PUKE (40200+1),VAL ("2'+A8) 

60 NEXT:CLS 

70 FOR I=0 TO 45 

80 READ AS 

90 PUKE (41200+1),VAL("2'+A4) 

100 NEXT 

110 INPUT "Valor para el registro HL 

120 POKE 40201, (A- (INT(A/256)x256)) 

130 POKE 40202, INT (A/256) 

140 CALL 40200 

150 PRINT 

160 GOTO 110 

170 DATA 21,00,00,CD,FO,A0,C9 

180 DATA 11,10,27,CD,0B,A1,11,E8,03,CD, 
0B,A1,11,64,00,CD,0B,A1,11,0A,00,CD, 
OB,A1,11,01,00,AF,37,3F,ED,52,38,03, 
3C,18,F7,19,C6,30,E5,CD,5A,BB,E1,09 


DO O foo Lo a 


0,0 MIDO 6 0.4. 2 


o 


| 
i 
1 
i 


o 


Comentarios 


En este caso, la subrutina EDECH se encuentra en la dirección 
8cA10B. Se hallará siempre en la dirección (N +27), siendo N la dirección 
donde se almacenó la totalidad del programa. Por tanto, si almacenas la 
rutina en una dirección distinta a la dada, deberás alterar las llamadas a la 
subrutina que se encuentran al comienzo de esta rutina para que apunten 
hacia la nueva dirección de EDECH. 

Esto completa el capítulo sobre salida de textos, aunque veremos en 
posteriores capítulos otras rutinas relacionadas con la manipulación de 
textos. Ahora vamos a ver algunas operaciones de gráficos, incluyendo una 
variedad de rutinas que aumentan las órdenes usuales de BASIC para 
manejo de gráficos. 


256 veces 
l acarreo. 


Rutinas 
de gráficos 


En este capítulo veremos varias rutinas que aprovechan las facilidades 
ofrecidas por Amstrad para la producción de gráficos. También me ocupa- 
ré de algunas rutinas de manipulación de textos, como las que escriben en 
pantalla grandes caracteres, y, dado su interesante funcionamiento, de 
aquellas que invierten y escriben los caracteres boca abajo en la pantalla. 
Además, se incluyen una rutina de propósito general para dibujar compo- 
siciones gráficas y cuadros en la pantalla a partir de una lista de datos, y 
varias rutinas más de utilidad para los gráficos. 

Comenzaremos con algunas rutinas que escriben grandes caracteres en 
pantalla, muy útiles para títulos o programas de demostración. Las dos 
primeras no utilizan ninguna rutina propia para gráficos; sin embargo, 
presentan algunas interesantes rutinas de la ROM 


CGRAND (Carácter GRANDe) 


Esta escribe en la pantalla un carácter enormemente grande de ocho 
caracteres de ancho y de ocho de altura. La rutina trabajará en cualquier 
modo de pantalla y el carácter aumentado se escribirá en la posición 
actual del cursor de textos, y con el color de la tinta asignada a textos. 
Examina los comentarios posteriores para los detalles de la relocalización. 
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Requisitos de entrada 


Condiciones de salida: 


Longitud: 


931 AF 


E 
Els 


dcttn a 
á 


383833885 


$3038838N 


q 
3 


OP EE 


E 
3 
E 


E 
poco 
E 


Trabajando desde el BASIC, llamaremos a esta 
rutina mediante CALL dirección, n; donde n es 
el código ASCII del carácter que ha de ser es- 
crito. 
Si hacemos la llamada desde otra rutina de códi- 
go máquina, entonces Á contiene el valor 1 y el 
EEO IX apunta al código del carácter a es- 
cribir, 


Todos los registros son alterados. La rutina ter- 
mina cuando el carácter ha sido escrito o cuando 
detecta que se ha transferido un número erróneo 
de parámetros. 


80 bytes. 


acter a imprimir 
reccion patronj 
que es conde se almacena 
1 modelo del caracter 

7 8 bytes a desplazar 
AS (HL) 3 ML contiene la direccion 
1 modelo 


BUCLE 5 Transfiere los 8 bytes 
del modelo 


BOC 4 Restaura los registros de estado 
D,8 | Estos son los 8 bytes 


que definen el caracter 
A,(DO 5 Extrae el byte al que apunta IX 


ESbG 6683 ggg5 ES GRGJE 49 
E 


e 5 Salta de bít en bit 

para cada byte 

IR CACERO 

LD As32 5 Escribe un espacio sí 
el bit es 0” 

CALL 

ae 

Lo Y Escribe CHRS(255) 
slel bit es 17 

CALL 

INC. 


5 Baja una linea 


Envía 8 veces el 
caracter CHAS) 


9056 15 470 DEC D 


9037 2005, ago JR NZ,BUCLEI; Si todos los bytes de la 
490 + definicion han sido 
9039 Co 500 RETO realizados -.- Final. 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 SYMBOL 255,255,255,255, 255,255, 255, 
255, 255 

20 CLS 

30 LOCATE 1,1 

40 INPUT " Cadena: ",A% 

50 LOCATE 10,10 

£0 FOR I=1 TO LEN(AS) 

70 LOCATE 1*8+1,10 

80 CALL 40200, ASC(MID$(A$,1,1)) 

90 NEXT 

100 CALL EBBO65:GOTO 20 

110 REM Cambia la linea 10 por : 

120 REM SYMBOL 255,40,40,40,40. 

130 REM Hay muchas combinaciones. 


Comentarios 


Normalmente, podemos llamar a esta rutina mediante una sentencia en 
BASIC como ésta: 


"FOR X=1 TO LEN(AS) 


y=10:A$="caden. 
LOCATE X*8+1,y 
CALL 40200,ASC(MID$(A$,X,1)) 
NEXT X 


Obviamente, he supuesto que el código máquina ha sido ensamblado a 
partir de la dirección 40200. Los bytes del programa anteriormente listado 
son correctos únicamente para esta dirección. Mira los comentarios que 
hay después de CARVAR para los detalles sobre la relocalización de estas 
rutinas. 


CDOBLE (Carácter DOBLE) 

Esta rutina presenta en la pantalla un carácter con una altura doble de 
lo normal. Al igual que la anterior, ésta funcionará en cualquier modo de 
pantalla y se escribirá con el color de la tinta de textos y en la posición 
que tenga el cursor de textos en ese momento. 
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Requisitos de entrada: 


Trabajando con el BASIC, podremos acceder a 
ella con la sentencia CALL dirección, n; siendo n 


el código ASCIT del carácter que ha de escribirse. 
Partiendo de otra rutina en código máquina, po- 
dremos llamar a CDOBLE siempre que el regis- 
tro IX apunte al carácter que ha de ser escrito y 


que el registro A contenga el valor 1. 
Condiciones de salid 


Todos los registros son alterados; la rutina de- 


volverá el control cuando el carácter haya sido 
escrito o cuando detecte que un número erróneo 
de parámetros ha sido transferido desde la senten- 


cia CALL. 

Longitud: 73 bytes. 

2008 10 

308 reo E 

Son Co ÉS Suno hay nice! paradntro! 
Pr Cedcena el erogrins BIC 

2008 cosmo 30 PS 

psa pe e Cn 
7 dela on 

aDoF Do7E0o  %0 A 

h E Sian qui eat aEAR 


9D1Z CDASBB 100 Obtiene la direccion modelo 
9DIS DDZ213090 110 que es donde almacenarenos 
120 la matriz del caracter 

7D19 0808 130 8 bytes para desplazar 
9D1B 7E 140 
FDIC DD7700 150 Cada byte es copiado dos veces 
IDIF- 0023 160 para lograr asi un 
7DZ1 DD7700 170 byte de longitud doble 
9024 DD23 180 en la defínicion de la altura 
9026 23 190 
9027 10F2 200 
2029 FL 210 
9DZA CDOCB? 220 Restaura el estado de la ROM 
9DZD EFE 230 Define a CHR$(254) como 
9D2F 214090 240 parte superior del caracter 
9D3Z CDABBB 250 
9D3S 3EFF 260 Define a CHR$(255) como 
9D37 218790 270 la mitad inferior del caracter 
9D3A CDABBS 280 
9D3D JEFE 290 Escribe la mitad supertor 
9D3F CDSABS 300 
9D42 3EOA 310 Baja una Linea 
9D44 CDSABB 320 
9D47 3E08. 330 Retrocede un espacio 
9049 COSABR 
ADAC 3SEFF. Escribe la mitad inferior 
7DSE COSABB 360 

c> 


9051 


370 


Regreso al BASIC 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


o; 10 REM Rutina CDOBLE 
i 20 CLS 
o! 30 INPUT A$:CLS 


40 Y=10 : X1=3 : FOR I=1 TO LEN(AS) 
50 LOCATE X1+1-1,Y 

60 CALL 40200,ASC(MID$(A$,1,1)) 

70 NEXT 


Comentarios 


He dicho antes que esta rutina trabaja en todos los modos de pantalla, 
pero será particularmente efectiva en el modo O, donde la doble anchura 
del texto facilitará la lectura haciendo más legible el texto. Si deseas ver el 
programa en acción, ensambla el código máquina a partir de la dirección 
40200 y prueba también con las siguientes líneas de BASIC: 


y=10 2 X=1 ¿REM Posicion de pantalla 
MODE 2 

FOR I=X TO LEN(AS) 

LOCATE X+1-1,Y 

CALL 40200, ASC(MID$(A$, 1,1)) 

NEXT 


Las notas sobre la relocalización de esta rutina se darán también 
después de la descripción de CARVAR. 

Veamos ahora esta última rutina que escribe grandes caracteres. Exa- 
minando el listado comprobarás que hace uso de operaciones con gráficos. 


CARVAR (CARácter VARiable) 


Esta rutina es muy versátil para escribir caracteres de tamaño variable a 
voluntad. El ancho del carácter se mantiene constante a seis espacios, 
permitiendo con ello mayor legibilidad en cualquier modo de pantalla. El 
carácter a escribir se localizará en la posición actual del cursor de gráficos 
y tendrá el color asignado para los gráficos. 


Requisitos de entrada: — Si partimos desde BASIC, usaremos CALL direc- 
ción,n,m. En este caso, n es el código ASCII del 
carácter que ha de escribirse, y m es un número 
entero que especifica su altura relativa. 

Si accedemos a esta rutina desde un programa en 
código máquina, A contendrá el valor 2 y el 
registro IX apuntará hacia un bloque de me- 
moria. 

(IX+0) contiene la altura y (IX+2) contendrá el 
código ASCII del carácter. 
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Condiciones de salida: 


3 


S3y3cunUNcSsaSgsunsS33seses 


883 


Sesoroc393888 


38383 


ce3e3c3388 


Todos los registros se devuelven alterados. La 


rutina finaliza cuando escribe el carácter o cuan- 
do detecta un número incorrecto de parámetros. 


238 bytes. 


amo 
(ALTURA) 
wB9OS 

AF 

As (XI z) 
eBRAS. 
1X, 40000 


GESR67ESS 303 


SALIDA 


aSBrO 
ec 
DE 
mo 
ma 
DE 
ES 


LD DE,6 
LD HO, 
CALL MBbOS 


POP BO 


Si no hay dos parametros 
retorna 


Recoge el valor de la altura 
Acceso a la memoria ROM 

Guarda el estado de la ROM 

Caracter para escribir 

Obtiene la direccion del 

modelo del caracter 

y almacena los 6 bytes del modelo 

en el espacio de trabajo 

mediante incrementos de HL 


Transteridos los 8 bytes 
Restaura el estado de la ROM 
8 bytes de definicion 

del caracter 


Obtiene el byte al que 
apunta 1X 


Salta de bit en bit, dentro 
de cada byte 


El bit es o” 
El bit es 1” 


Si se ha dado cuenta de 
todos los bits de la definicion... 


Dibuja una corta linea horizontal 
El trazo es relativo 


Se mueve a lo largo de la línea 
El movimiento es relativo 


POP DE 
POR ML 
RET 
SALH PUSH BC 
PUSH HL. 
PUSH DE 
LD Ho ñ 
LD A, (ALTURA); 
; 
LO BA 
DBUCLE DEC HL. , 
DEC HL 5 
, 
POP DE 
POR HL 
POP DC 
RET 
CURSOR PUSH BC 
PUSH HL. 
PUSH DE 
PUSH AF 
CALL aBDC6 5 
LD bé 
CBUCLE INC DE , 
DINZ EBUCLE. 
LD CTEMPX),DES 
LD CTEMPYIS MLS 
POR AF 
POP DE 
FOR ML 
POP BC 
RET 
RESTAU PUSH BC 
PUSH DE 
PUSH HL. 
LD DEJ=é 5 
s 
5 
NEXT 
PUSH DE 
9087 ES 1100 PUSH HL. 
9DB8 EDSBF29D 1110 LD DE, CTEMPX) 
FDBC ZAFAPD 1120 LD HL, CTEMPY 
9DBF CDCOBB 1130 CALL ABBCO y 
1190 5 
1150 4 
1160 7 
1170 4 
90cz EL 1180 PoR ML 
9DC3 DI 1190 POP DE 
50cs ci 1200. POP BC 
9Dc5 Fl 1210 POR AR 
9DC6 C9 1220 RET 
90c7 CS 1230 VERT — PUSH BC 1 
90C8 Co8c9D 1240 CALL CURSOR 3 
9DCB 3AF1I9D 1250 LD A, (ALTURAS 
9DCE 47 1260 LD BA , 
CALL 
CALL 
DINZ 
CALL 
Pop 


Ahora trabaja vertícalmente 
Movimiento relativo dependiente 
del parametro ALTURA 


Asi, la siguiente línea del 


caracter se dibujara con un 
movimiento relativo de 86 puntos 


Posiciona el cursor de graficos 


Suma 6 a la coord. X 


Movimiento relativo 
6 puntos a la izquierda 
y de 2 hacía abajo 


Movimiento absoluto al 
siguiente (NEXT) punto, con lo 
cual la síguiente parte de la 
linea del caracter debe ser 
punteada 


de la otra y con 
altura variable 


+ Por ser el vertica, 
3 na se dibujan líneas. 


INPUT "Altura: 
MOVE 100,100 
FOR 1=1 TO LEN(AS) 
MOVE I*BO+10,100 
CALL 40200, ASC(MID$(A$,1,1)),A% 
NEXT 
IF INKEYS="" THEN 90 
100 CLS 
110 GOTO 20 


Comentarios 


Debido a la cantidad de subrutinas que maneja, esta rutina no es 
fácilmente relocalizable. Sin embargo, si te sientes dispuesto a ello, lee las 
siguientes advertencias y tenlas muy en cuenta a la hora de cambiar la 
dirección donde se aloja el programa: 


1. La dirección donde se encuentra el espacio de trabajo, normalmente 
en la 40000, tendrá que ser cambiada si la nueva dirección del 
programa es tal que se superpone al espacio de trabajo. 
Obviamente tendrás que modificar, conforme a la nueva relocaliza- 
ción del programa, los bytes que forman las direcciones de las 
distintas subrutinas del programa y que pertenecen a las instrucciones 
CALL. 

3. Meremito a las notas del prólogo para comentar algunos directivos 
del ensamblador. 


Los bytes que forman el programa antes listado están preparados para 
trabajar en la dirección 40200. Tal vez quieras probar también su utilidad 


con el siguiente programa en BASIC, Se supone que el código máquina se 
encuentra ya en el ordenador y en la dirección correcta. 


; 10 MODE 2 

20 INPUT "Cadena: ",A$ 

30 INPUT "Altura: “,0Z 

40 MOVE 100,100:REM Posicion de comienzo 

SO FOR I=1 TO LEN(AS) 

60 MOVE 1*50+10,100:REM Se mueve a la 
posicion del siguiente caracter. 

70 CALL 40200,ASC(MIDS(A$,1,1)),M% 

80 NEXT 

90 IF INKEYS="" THEN 90 ¿REM Pulsa para 
continuar. 

100 CLS 

110 GOTO 20 


0 (Sá lo7 [Oc 0» “O: 


La separación entre los caracteres escritos se puede ajustar variando 
las constantes de la sentencia MOVE de la línea 60. El carácter se escribe 
en pantalla con su esquina superior izquierda en la posición que ocupa el 
cursor de gráficos. 

Dedicaremos unas líneas para examinar algunas rutinas de la ROM, 
que hemos utilizado para la confección del programa CARVAR. También 
vamos a ver algunas limitaciones respecto al lugar en donde pueden ser 
relocalizadas las tres rutinas anteriores. 


Rutinas de ROM utilizadas 


£B906: Esta nos permite acceder a la ROM más baja en vez de 
disponer de la RAM que normalmente ocupa esta zona del mapa de 
memoria. La ROM baja ocupa las posiciones de memoria comprendidas 
entre £:0000 y 8:4000; necesitamos tenerla disponible para poder copiar 
las definiciones de los caracteres que se guardan en la ROM y almacenar- 
las en el espacio de trabajo, que en estos programas empieza en la 
dirección 40000. Al volver de esta rutina, el registro A contiene lo que se 
conoce como estado de la ROM, mediante el cual podremos, al finalizar 
este tramo de la rutina, cerrar el acceso a la ROM y disponer nuevamente 
de la RAM. 


£:B90C: La rutina de esta dirección precisa disponer del byte de estado 
que fue generado por el sistema operativo cuando accedimos anteriormen- 
te a la ROM. Su función es devolver a la ROM el estado en que se 
encontraba originalmente. Cuando hayamos terminado de copiar la defini- 
ción de los caracteres desde la ROM y la almacenemos en la RAM, 
usaremos esta rutina para que las cosas vuelvan a su estado normal. 


53 


La utilización de estas dos rutinas para acceder a la ROM explica el 
especial cuidado que debe ponerse al relocalizar el código máquina. Piensa 
un momento en ello; si inhibimos la zona RAM donde está almacenado 
nuestro código máquina, la ejecución del programa se romperá al activar 
la ROM. Por esta razón, sólo podemos situar estos programas en una 
zona de memoria que no se vea afectada al perder acceso a las direcciones 
de RAM ocupadas en ese instante por la ROM. Ninguna dirección entre 
$:4000 y «BEFF será afectada cuando accedamos a la ROM; así, puedes 
relocalizar tu programa en cualquier dirección dentro de esta área, pero 
nunca almacenar en la zona comprendida entre £:0000 y £:3FFF ni el 
programa ni la zona de trabajo. 

Las otras direcciones de ROM usadas por estas rutinas son: 


SBBAS: Esta rutina, llamada TXT GET MATRIX por Amsoft, nos 
permite conocer la dirección del primero de los ocho bytes que definen el 
modelo del carácter que se escribe en pantalla. Para llamar a esta rutina, 
el registro A debe contener el código ASCII del carácter. Al regresar de la 
rutina, el par de registros HL contiene la dirección. 


£BBAS: CDOBLE la utiliza para definir la mitad superior e iaferior 
del carácter. En este caso, al llamar a esta rutina, HL contiene la dirección 
del primero de los ocho bytes consecutivos que conforman la definición, y 
el registro A contiene el código ASCIL del carácter que tenemos que 


definir. 


Un estudio más detallado de las rutinas de la ROM puede encontrarse 
en el manual de firmware del Amstrad y en la obra Programación avanzada del 


Amstrad. 

Las dos siguientes rutinas que vamos a ver carecen de utilidad inme- 
diata, siendo, sin embargo, bastante interesantes. Tanto ESPEJOV como 
ESPEJOH pueden ser relocalizadas en cualquier región de la memoria 
entre 84000 y £4BFFF. De ahora en adelante, esta área útil de la memoria 
será denominada “depósito de memoria” (memory pool). 


ESPEJOV (ESPEJO Vertical) 


Esta rutina escribe un carácter boca abajo. El carácter corresponde al 
código ASCII que se transfiere al llamar a la rutina. Actúa como si un 
espejo hubiera sido situado al pie del carácter. La rutina es relocalizable 
en cualquier dirección del depósito de memoria. El carácter se escribirá en 
la posición y color actuales del cursor de textos. 


Requisitos de entrada: Al igual que en rutinas precedentes, ésta puede 
estar disponible mediante la sentencia CALL di- 
rección, n, siendo n el código ASCII del carácter 


que nos interesa. Si partimos de otro programa 
en código máquina, entonces IX deberá apuntar 
al código del carácter, y A=1. 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 50 bytes. 
2008 10 0R6 40200 
308 FEo1 E ei 
Son o Es FETNZO ¿0 4 mp naycun soto partastros 
ed Patorno el BASIO 
2008 cuoeso 80 COLL emos y ACCION el accoeo a La RON 
S00E ES E pun Ae Buarda el byte de estado de la ROM 
3noF bo7eoo 70 Da 
AS CALL MADAS 5 Obtiene la dirección en RON 
2d) Bonda se Querde el caracter patron 
901 DOz1A09 100 1D. [xa 400001 DiPaeción onde pe sibacene 
Dio 1lo70O dio ED IES  ranml nod pel mar acre 
ne do mo abo HE3DE 
90D 0608 130 FC 
e se 130 muctz LD AJÍ) 7 ML contiene la direccion del 
red Mino O) La del eoule 
| 90zo Do77oo 120 Lo aa 
302S 28 179 Dec 
Sea 0023 100 EE 
añ 107 150 DONZ BUCLE) Transfiare 105 8 bytes del 
20 Abba DU dolia bro 
Er Sor el utbiao de altos 
| 9028 Fl ES por ar 
3027 Cnoceo 230 EA fb0OC y Restaura el estado de 1a ROM 
Tr EAS LO Meza0000) Redatino el Caracter CHRO(203) 
E] Lo ajos 
3031 Conesa 2%0 CAL Mesas 
EZ] LD ASES y Escribe CMRS(290) 
3036 CosaBo 200 CALL Mesa 
ES E ner 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


o! 10 CLS 
! 20 INPUT "Cadena: ",AS 
o: 30 LOCATE 10,10 : PRINT As 
h 40 LOCAIE 10,11 
o! 50 FOR l=1 TO LEN(AS) 
i $0 CALL 40200, ASC(MID$(A$,1,1)) 
oe 70 NEXT 
80 PRINT 
90 INPUT AS 
o 100 GOTO 10 
Comentarios 


La rutina puede ser relocalizada en cualquier zona del depósito de 
memoria, pero recuerda que tienes que alterar la dirección del espacio de 


trabajo (desde 40000), cuando almacenes el programa en este espacio de la 
memoria en concreto. Para ver la acción de esta rutina, prueba también 
con el siguiente programa BASIC: 


MODE 1 

INPUT "Cadena: ",AS$ 

LOCATE 10,10 : PRINT AS 

LOCATE 10,11:REM Justo bajo la cadena 
FOR I=1 TO LEN(AS) 

CALL 40200,ASC(MID$(A$,1,1)) 


REM Se supone que el programa ya se 
encuentra almacenado en la direccion 
40200 de la memoria. 
NEXT 
90 PRINT 
100 INPUT “Pulsa para continuar",a$ 
110 GOTO 10 


ESPEJOH (ESPEJO Horizontal) 


Esta rutina es similar a la anterior, con la diferencia de que escribe en 
pantalla un reflejo del perfil del carácter. Es decir, el carácter se reflejará en 
un espejo situado en su lado derecho. El carácter se escribirá en la 
posición y color actuales del cursor de textos. 


Requisitos de entrada: Es necesario un único parámetro que acompañe 
a la orden CALL si trabajamos con un progra- 
ma BASIC, El parámetro contiene el código del 
carácter a escribirse. 

Si partimos de código máquina, IX deberá apun- 
tar al código ASCII del carácter, y A=1. 


Condiciones de salida: Todos los registros san alterados. 


Longitud: 56 bytes. 
105 an ESPEJOH «e 

9008 20 ORG 40200 

9008 FEOL 30 cea 

9DOA co 40 RET NZ Y Si no hay un solo parametro, 
505 regresa al BASIC 

9008 cDO6B9 $0 CALL WBROS 3 Activa la ROM 

9DOE FS 70 PUSH AF Y Guarda el byte de estado de la ROM 

9DOF  DD7EOO 80 LD A, 

9012 CDASBR 90 CALL WBBAS 5 Obtiene la direccion de la 
100 + matriz del caracter 

DIS DDZ1409C 110 LD 1X,40000; Direccion dende se almacenara 
120 + el modelo del caracter 


9019 0608 130 LD Ba 


ES 140 BUCLE LD A,CHL) 3 ML contiene la direccion del 


150 3 primer byte de la matriz 
9D cs 160 PUSH BC, 
ADD 08508 170 Lo Bb 3 8 bits por cada byte 
DLE añ 180 LD CsA 3 Extrae cada byte de la definicion 
9020 CB11 190 IBUCLE FL C 3 Transfiere el bit de la 
9022 1F 200 RRA izquierda del registro C 
210 5 al registro A 
9023 10FB 220 DINZ IBUCLE 
9025 C1 230, POP BC y Recupera Bl 
9024 DD7700 240 LD (1X),A 5 Transfiere el byte modificado 
250 5 de la definicion 
9029 23 260 
9024 DD23 270 
9D2C 10ED 280 Se almacenan los 8 bytes de 
290 5 la matriz modelo 
9D2E FL 300. 
9DZF  CDOCB9 310 Restaura la ROM en su estado normal 
9D3Z 21409 320 Redefine el caracter CHRe(255) 
9033 SER 330 
%D37 CDABBB 340 
9D3A JEFF 350 Escribe CHR* (255) 
DSC CDSABB 360 
9D3E co 370 


10 CLS 
20 LINE INPUT "Cadena : ",AS 
30 LOCATE 10,10 

40 PRINT AS 

50 LOCATE 10+LEN(AS),10 

60 FOR I=LEN(A$) TO 1 STEP -1 
70 CALL 40200, ASC(MIDS(A$, 1,1)) 
80 NEXT 

90 CALL *«BBO6 

100 GOTO 10 


ajo RÍOL O) [DO 


Comentarios 


También esta rutina es relocalizable en el depósito de memoria, siem- 
pre que cambiemos la dirección del espacio de trabajo si fuera necesario. 

La rutina puede probarse también con el mismo programa dado para 
ESPEJOV. 

Ya hemos visto suficiente sobre caracteres. Vamos a ver ahora cómo 
realizar dibujos y gráficos reales. Con el sistema operativo del Amstrad 
resulta realmente fácil el uso de operaciones con gráficos desde rutinas de 
código máquina. Existen rutinas que dibujan puntos, trazan líneas, despla- 
zan el cursor de gráficos, etc. La primera rutina de gráficos que vamos a 
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describir es una versión gráfica de la rutina ECADEN, La rutina acepta 
una tabla de instrucciones y coordenadas de gráficos, y opera con ellas 
para dibujar una figura con la forma que la tabla especifique. Dentro de la 
rutina, esta tabla es denominada FIGURA, ya que lo que hace es definir 
una figura. Como cada uno pensaréis en una figura distinta, éste será el 
mejor método para introduciros en los gráficos en código máquina por su 
generalidad. Claro está que, si queremos trabajar con un solo tipo de 
figuras, será más rápido escribir una rutina que realice este trabajo especí- 
fico; pero con el tiempo comprobarás la gran versatilidad y expansión que 
puede alcanzar esta rutina. 


FIGRAF (Figuras GRAFicas) 


Se trata de una rutina de propósito general que dibuja en la pantalla 
gráficos de figuras en los tres modos, Los datos de las figuras a dibujar se 
encuentran en una “Tabla de Figuras” cuya estructura se describe en los 
Comentarios que hay después del programa. 


Requisitos de entrada: Ninguno. El programa inicializa los registros por 
sí solo; pero consulta los Comentarios posteriores. 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 99 bytes. 
si a0 FIGRAF mo 

9008 10 oRS 40200 

9008 DDZI6B9D 20 LD IX,FIGURA ; Direccion de los datos 

9DOC DD7E00 30 BUCLE LD A,(IX) 5 Primer byte de los 5 que formaran 
205 un codigo de operacion 

9DOF FEO so ce o 

9D11 CS 80 RET 2 

DIAZ FEOL 70 ce 1 

9014 so CALL ZAMOV 5 CALL cuando sea apropiado 

9017 FEOZ 90 ce 

9019 Cc499D 100 CALL 2,DIBUJA 

DIC FEOS 110 ES 

DIE CCZAYD 120 CALL Z,COLOR 

9021 FEOS 130 ce 

9023 CCAD9D 140 CALL Z,PUNTO 

9026 DD23 Fl INC 3 Incremento de IX para que 
160 + apunte hacia el siguiente codigo 
170 + de operacion 

9028 18e2 E IR BUCLE 

9D2A FS 190 COLOR PUSH AF. y Guarda AF hasta la salida; 
200 4 el registro A todavia conserva 
2105 el codigo de operacion 

9028 DD23 220 INC 1x 

9D2D DD7E00 230 LD ACI color 

9DS0 CDDEBB= 240 CALL 6 tinta para Los graficos 

9033 DD23 250 INC IX 

9033 DD23 260 INC 1X 

9037 DDZ3 270 INC 1X 3 Actualiza el valor de IX 

9039 Fl 280 POR AF 

SOJA C9 250 RET 


9D3F CDCOBB 320 CALL ABECO — 5 Movimiento absoluto 

9DAZ Fi 330 POP AF 

9083 Cc? 340 RET 

3094 FS 350 DIBUJA PUSH AF 

9043 CDJ69D 360 CALL COORDS 

3048 CDF6BS 370 CALL ABBF6 5 Traza una línea 

908B Fl 300 POP AF 

9D4C 9 390 RET. 

9DAD FS 400 PUNTO PUSH AF 

DIE CDS69D 410 CALL COORDS. 

9DS1 CDEABB 420 CALL ABREA 5 Puntea en una posicion absoluta 

5054 Fl 430 POP AF 

9055 C9 430 RET 

9038 DD23 450 CODRDS INC 1X Y Rutina que carga las coordenad 
260 + X e Y en los registros DE y HL 
270 + para su uso por las rutinas de ROM 

9D38 DDSEOO 480 Lo EDO 

9D3B DDZ3 290 INC IX 

9D5D DDS600 500 LD D,(IX) 3 Coordenada X en DE 

9060 DD23 510 INC 1k 

9D6Z DDEE0O 320 LD Lo Cm0 

9063 DD23 530 INC 1X 

9D67 DDE600 340 LD M,(IX) 1 Coordenada Y en HL 

9DEA Co 550 RET 

9DEB 02 560 FIGURA DEFB 2 Y A partir de aquí son datos 

$D6C C800 570 DEFW 200 

7DSE 0000. 580 DEFM O 

9070 03 570 DEFB 3 

9D71 0300 500 DEFM 3 

9073 0000 $10 DEFW O 

9073 02 620 DEFB 2 

9076 800. 630 DEFW 200 

9078 800 540 DEFM 200 

907 03 ¿50 DEFB 3 

3078 0400 £60 DEF 4 

5D7D 0000 670 DEFU O 

9D7F 02 680 DEFB 2 

3080 0000 690 DEFU O 

9D8z  Ce0o 700 DEF 2 

9084 03 710 DEFB 3 

5D85 0500 720 DEFW 5 

9087 0000 730 DEFH O 

9D8e9 02 740 DEFB 2 

DBA 0000 750 DEFW O 

9DEC 0000. 760 DEFW O 

AD8E 00 770 DEFB O 5 Final 


Ensámblalo y pruébalo con el siguiente programa BASIC, 


10 MODE O 

20 CALL 40200 

30 FOR T=1 TO 1000:NEXI:MODE 2 
40 CALL 40200 


Comentarios 


La dirección de la Tabla de Figuras se carga al comienzo del programa 
en el registro IX. Esto se puede alterar, de forma que cuando llames al 
programa puedas suministrar la dirección de tu Tabla de Figuras al. 
mismo. La rutina es relocalizable en el depósito de memoria teniendo en 
cuenta, por supuesto, que hay que cambiar las direcciones que contienen 


las instrucciones CALL de la rutina, refiriéndome con ésta a las llamadas 
a subrutinas del programa y no a las que se hacen al sistema operativo del 
ordenador. 

La rutina comenzará consultando las instrucciones almacenadas en la 
Tabla de Figuras. Las operaciones se realizarán con el color y posición del 
cursor de gráficos en el estado en que se encontraba antes de entrar en la 
rutina, Por eso, si al llamar a la rutina tienes alguna duda sobre ese 
estado, tendrás que asegurarte de que el primer par de instrucciones de la 
Tabla de Figuras inicializan apropiadamente el color y la posición del 
cursor de gráficos. 


La Tabla de Figuras 


Consiste en unas series de cinco bytes con el formato de la siguiente 
figura. 


ENTRADA [código de operación|—= operación a realizar 
—= coordenada X o color 


ENTRADA+4 a 


La introducción de cinco bytes se repite en cada operación realizada 
por FIGRAF. Los códigos de operación que entiende esta rutina son los 
que se muestran en la siguiente tabla: 


Tabla de códigos de operación de FIGRAF 


Código. 


final 


movimiento absoluto 
trazo absoluto 

color 

punteo absoluto 


Cualquier secuencia de operaciones terminará con una entrada de 
cinco bytes puestos a 0, indicando con ello el final del grupo de instruccio- 
nes. Para las operaciones de mover el cursor, dibujar o puntear, las 
coordenadas X e Y estarán almacenadas en dos pares de bytes con el byte 
bajo en primer lugar. Para color —que especificará cuál de los colores 


disponibles se debe usar a continuación— el byte bajo de la coordenada X 
se usa para guardar el código del color. Este código coincide con la pluma 
de gráficos que quieras utilizar, y no con el número asignado a cada color. 
En el caso de color, todas las demás entradas estarán a cero. 

Es fácil añadir más códigos de operación a la rutina; y si, por ejemplo, 
quisieras incluir instrucciones de movimientos o trazos de líneas relativos, 
te serán de ayuda las siguientes recomendaciones. 


1. El registro AF siempre tiene que preservarse al entrar en la rutina del 
nuevo código de operación. Esto nos garantiza que el registro A 
pueda ser devuelto a su estado original al finalizar la rutina. Esto es 
importante, sobre todo si el programa puede llamar a una segunda 
subrutina antes de actualizar el registro IX y antes de buscar un 
nuevo código de operación. 

2. Probablemente sea una buena idea dejar el 0 como último código de 
operación, a menos que quieras alterar el programa. 


Voy a mostrarte ahora algunas rutinas dedicadas a la construcción de 
figuras, tales como triángulos y rectángulos. 


TRIANG (TRIANGulo) 


Esta rutina dibuja un triángulo, cuyos vértices son la última posición 
que ocupó el cursor de gráficos antes de llamar a la rutina, y los dos 
puntos transferidos como parámetros a la rutina en código máquina. El 
color del triángulo es el definido para los gráficos. 


Requisitos de entrada: — Si utilizamos una sentencia CALL, la forma co- 
rrecta será CALL dirección,x,y,x1,y1, siendo los 
puntos x,y y xl.yl los vértices del triángulo. 
Si partimos de otra rutina en código máquina, 
entonces el registro IX apunta hacia un bloque 
de parámetros como el de la figura. Además 


Condiciones de salida: Todos los registros son alterados. 
Longitud: 44 bytes. 


2008 
9008 Tiene que haber 4 parametros 
9004 
500B la posícion actual del cursor 
9DOE 
DOF 
9010 Linea hasta el punto X1,VI 
9013 Actualiza IX para que apunte 
hacía los parametros X e Y 


DD23 
0023 
CD2490 a el punto X,Y 
EL os valores originales de X e Y 
DI 
COF6BD Ultimo trazo hasta ese punto 
co 
DDéEOO La 
DDSE01 HS (Ixe 
9DZA  DDSEOZ Es (1X+2) 
9D2D DDS603 D, (1X+3) 
9D3O COF6BR CALL ABBFe 
9033 c9 Rer 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


MODE 1 
REM Rutina que dibuja triangulos. 
cLs 

INPUT ” Primer punto X,Y ",X,Y 
INPUT “ Segundo punto X1,Y1 “,X1,Y1 
CALL 40200,X, Y, X1, Y 

LOCATE 1,1 

GOTO 40 


Comentarios 


El programa es relocalizable a lo largo de todo el depósito de memo- 
ria. Cuando el triángulo se dibuje, el cursor de gráficos se encontrará en la 
posición que ocupaba antes de que la llamada a la rutina fuera realizada. 


CAJA 


Esta rutina dibuja figuras cuadradas o rectangulares en la pantalla. 
figuras pueden ser rellenadas o no, a voluntad. Tanto el contorno como el 
relleno tendrán el color asignado a los gráficos. La rutina es relocalizal 
pero poniendo cuidado en las direcciones de las subrutinas usadas. 


Requisitos de entrada: 


xy 


og —————— 


Para la sentencia CALL, usaremos el modelo: 
CALL dirección,x,y, longitud, altura(n). El pará. 
metro n es opcional, y si está presente se llenará la 
caja dibujada. Su valor carece de importancia. 
Para aclararte sobre los demás parámetros ob- 
serva la figura 1. 

Si partimos de otra rutina en código máquina, 
IX deberá apuntar hacia uno de los bloques de 
parámetros mostrados en la figura 2. 


y 


Figura 1 


=— (IX) 


(09 —| 


A=5 
caja rellenada 


Figura 2 


Condiciones de salida: 


Todos los registros son alterados. 


Si hay 5 parametros, la caja sera 


rellenada 


Dibuja el borde inferior 


Dibuja el borde derecho 


Dibuja el borde izquierdo 


Dibuja el borde superior 


Se aueve a la posicion inicial 


de la 


Guarda las coordenal 
del cursor de graficos 


Mueve el orígen de coordenada: 
hasta la posicion de la caja 


Extrae el numero 


de lineas necesarias para 
rellenar la caja y lo pone en BC 


Traza una serie de líneas 
de longitud L, que rellenaran 


la caja 


9D9S 20E0 bes JR NZ,BUCLES Si no estan todas, empieza 


9097 El 670 POR HL vezi cuando termina, 
9098 D1 650 POP DE 3 restaura el origen de graficos 
7097 CDCIBB 69 CALL ABBCO 

9D9C Cc? 790 RET 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 REM Rutina que dibuja y rellena 
cajas cuadradas o rectangulares 

20 CALL 40200,100,100, 400,200 

30 CALL 40200, 150, 150,300, 100 

40 CALL 40200,200,170,200,60, 1 

50 END 


Comentarios 


Existen algunos puntos interesantes de esta rutina, que merece la pena 
comentar. El primero es el empleo del número de parámetros transferidos 
a la rutina, para especificar cuál de las dos opciones, “lleno” o “vacio”, ha 
de realizarse. Esta indicación se consigue fácilmente gracias a que el núme- 
ro de parámetros transferidos se almacena en el registro A al entrar en el 
código máquina mediante la orden CALL. De ahí que el valor del pará- 
metro “n” no tenga ninguna importancia; únicamente su presencia provo- 
ca que la rutina actúe de una u otra forma. 

Otros puntos de interés sobre esta rutina son las subrutinas de la 
ROM utilizadas, y cl método empleado para rellenar las cajas cuando es 
necesario. 


8BBCC: Esta rutina nos permite conocer la posición actual del origen 
de coordenadas para las operaciones de gráficos. Esto es,el punto usado 
como 0,0 en dichas operaciones. Al regreso, HL contiene la coordenada Y, 
y el par DE contiene la coordenada X. Esta información nos es necesaria 
porque, cuando dibujamos el relleno de las cajas, alteramos la posición del 
origen, y, además, es bueno volver las cosas a su estado original antes de 
volver al BASIC, 


£BBC9: Esta nos permite definir el origen de coordenadas de los 
gráficos en un determinado punto x,y. El registro DE contiene la coorde- 
nada X y el registro HL la coordenada Y. Después de cumplir estos 
requisitos, podemos llamar a la rutina. Este programa la utiliza para 
restaurar el origen de gráficos en su posición original, justo antes de 
terminar la rutina, 


Aunque en la memoria ROM del Amstrad hay una rutina especial 
para rellenar áreas de pantallas con un color, esta rutina requiere que las 


coordenadas de los puntos se conviertan en direcciones de la memoria de 
pantalla. Así que decidí tomar un camino más fácil y opté por dibujar 
simplemente líneas que rellenaran el área de la caja. No es tan rápido 
como la rutina interna de llenado, pero es más sencillo de entender y de 
llevar a cabo. 

Como una posible extensión de este problema puedes intentar que el 
parámetro “n” especifique el color con el que se dibuje el relleno de una 
caja. El color se puede activar mediante la rutina GRAPLUMA que 
expuse brevemente en el capítulo 2. 


Dibujando círculos 


La rapidez al dibujar un círculo es una exigencia muy común al 
programar. Sin embargo, se presentan varios problemas al usar el código 
máquina para este fin. El trabajo con números reales para el cálculo de 
senos y cosenos en las rutinas que dibujan círculos, se complica en gran 
medida. Esto puede originar que las rutinas que escribamos para calcular 
estos valores se hagan realmente largas y resulten apenas más rápidas que 
el BASIC. Por eso, quiero presentar aquí un par de rutinas en BASIC 
para dibujar círculos, igualmente útiles y de propósito general. El tercero 
es un programa híbrido que emplea BASIC en combinación con código 
máquina, y que se puede emplear en casos especiales. 


CIRCULO 1 


Esta es una rutina directa para dibujar círculos y la mayoría de los 
polígonos, dándole esta última función especial utilidad. En el programa, 
cualquier valor de “n”, a excepción de de 1 y 2, dará una figura poligonal. 
Observa que hay valores como n 0'o n=15, que dan figuras con 
un tramo sin dibujar. Los valores dea 'n” superiores a 25 darán un círculo. 
más o menos razonable. 


o! 10 REM Circulo 1 lol 
j 20 REM Dibuja poligonos j 
o! 30 REM Los valores de N mayores que 25 a 
H 40 REM generaran un circulo j 
7 50 REM Cuanto mayor sea N , mas tiempo H 
o; 560 REM llevara el dibujo, pero mejor 18 
i 70 REM definido estara el circulo i 
o; 80 MODE 2 10 

1 90 INPUT "Numero de lados ",MN iS 
o! 100 XC=200 : REM Centro del circulo lo 

H 110 YC=200 ; 
la 120 CSALTO=6.26/N :REM Incremento 19 


130 CFIN=6.28 


140 CRAD=100 : REM Radio de la figura E 
150 MOVE XC+CRAD, YC 

160 FOR 1=0 TO CFIN STEP ESALTO 3 
170 DRAW XC+CRAD*COS (1), YC+CRADISIN CL) H 
180 REM Realización de la figura (O 
190 NEXT 1 
200 END ¿O 

CIRCULO 2 


Esta rutina es más rápida que la anterior, pero no tan versátil, ya que 
no puede dibujar otros polígonos. De hecho, el programa CIRCULO! es 
digno de un pequeño experimento. La velocidad extra de este programa se 
debe a que el tiempo consumido en el cálculo de senos y cosenos se hace 
una sola vez. Los demás valores trigonométricos que se requieren son 
calculados a partir de los valores iniciales. 


o 10 REM Circulo 2 o 
20 MODE 2 ! 

o 30 REM Dibuja los circulos mas rapido yO 
40 REM pero no dibuja poligonos. h 

o S0 CRAD=100 : REM Radio del circulo. lo 
i 60 CX=320 : REM Centro del circulo ; 

o! 70 CY=200 to 
Ñ 80 C=C0S(3.14/25) : S=SINC3.14/25) i 
H 90 CVIEJO=1 : SVIEJO=0 i 

e 100 MOVE CX+CRADACUIEJO, CV +CRADISVIEJO 15) 
H 110 FOR I=1 TO 50 H 

o; 120 CNUEVO=CVIEJO*C-SVIEJORS LO 
H 1350 SNUEVO=SVIEJOXC+ACVIEJONS H 

o! 140 DRAW CX+CRADACNUEVO, CV HCRADXSNUEVO to 
j 150 CVIEJO=CNUEVO : SVIEJU=SNUEVO ñ 

o! 160 NEXT lo 

CIRCULO 3 


Llegamos ahora a un método un tanto híbrido de dibujar círculos, que 
usa eficazmente una variación del programa FIGRAF que vimos al co- 
mienzo de este capítulo. Una rutina en BÁSIC calcula las coordenadas del 
círculo que se quiere dibujar, y almacena los valores así obtenidos en una 
tabla desde donde el código máquina accede a las coordenadas y las 
dibuja en la pantalla cuando se precisa. La desventaja de este método es 


67 


que sólo es útil para un radio en particular y una determinada posición en 
la pantalla. Para dibujar diferentes círculos es necesario redefinir los valo- 
res de la tabla usados por el programa, volviendo a recorrer la parte 
BASIC del programa con los nuevos parámetros. 


9008 10200 
9008 

9Doc EDO 
9DOF DD, UD 
9012 lez, 
3015 nes 
9018 

9018 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 MODE 2 

20 REM Circulo 3 

30 REM Dibuja circulos rapidament 

40 REM La posicion del circulo es fija 
50 REM y el radio es fijo. 

$0 CRAD=100 : REM Radio del circulo. 
70 CX=100 : REM Centro del circulo. 
80 CY=100 

90 C=C0S(3.14/25) : IN(3. 14/25) 
100 CVIEJO=1 : SVIEJ 

110 COORDS=40300 

120 XCOORD=CX+CRADACVIEJO : GOSUB 250 
130 XCOORD=CY+CRAD*SVIEJO : GOSUB 250 
140 FOR I=1 10 50 

150 CNUEVO=CVIEJO»C—-SVIEJONS 

160 SNUEVO=SVIEJO»C+UVIEJONS 

170 XCOORD=CX+CRADXCNUEVO : GOSUB 250 
180 XCOORD=CY+CRAD*SNUEVO : GOSUB 250 
190 : SVIEJO=SNUEVO 
200 

210 

220 INPUT"Pulsa ENTER para dibujar.",a$ 


PTOS O 010.413 S,.O 
SD OO O 


2350 CALL 40200 

240 END 

250 AS=HEXS (XCOORD) 

260 A$=RIGHT$ ("O00U"+A$, 4) 

270 BB=VAL ("2"+RIGHTS(A$,2)) 

280 BA=VAL ("2"+LEFI$(A$,2)) 

290 POKE CODRDS,BB : COURDS=COORDS+1 
300 POKE COORDS,BA : COORDS=CODRDS+1 
310 RETURN 


07 90-070: 


0.0 0.0 


El listado del lenguaje ensamblador de este programa precisa que las 
coordenadas para el círculo se almacenen en memoria a partir de la 
dirección 40300. La rutina de dibujo del círculo calcula las primeras 
coordenadas X e Y, y las sigue utilizando para moverse a partir de ellas 
hasta un punto que diste un radio del centro del círculo. El siguiente 
programa almacenará la información de las coordenadas y llamará a la 
rutina que dibuja el círculo. El programa espera encontrar a esta rutina en 
la dirección 40200, con los datos en la dirección 40300. 


10 CRAD=100 : REM Radio del circulo. 
20 CX=100 2 REM Centro del circulo. 
30 CY=100 
40 C=C05(3.14/25) : S=SIN(3.14/25) 
50 CVIEJO=1 : SVIEJO=0 
$0 COORDS=40300 : REM Direccion de 

la tabla. 
70 XCOORD=CX+CRAD*CVIEJO : GOSUB 250 
80 XCOORD=CY+CRAD*SVIEJO : GOSUB 250 
90 FOR I=1 10 50 
100 CNUEVO=CVIEJOxC-SVIEJONS 
110 SNUEVO=SVIEJOXC+CVIEJOXS 
120 XCODRD=CX+CRADXCNUEVO : GOSUB 250 
130 XCOORD=CY+CRAD*SNUEVO : GOSUB 250 
140 CVIEJO=CNUEVO : SVIEJO=SNUEVO 
150 NEXT 
160 CLS 
170 INPUT"Pulsa ENIER para dibujar.",a 
180 CALL 40200 : REM Presumiendo que la 
190 REM rutina esta en esta direccion. 
200 END 
210 CLS 
220 INPUT"Pulsa ENTER para dibujar.",as 
230 CALL 40200 
240 END 
250 REM Subrutina que se estudia en los 
260 REM comentarios posteriore: 
270 A$=HEX$ (XCOORD) 


O JORGE O e ONO O Y A 


00 UA AA O 040.0 


A$=RIGHTS ("0000 "+AS, 4) 
290 BB=VAL ("2"+RIGHIS(A$,2)) 
300 BASVAL ("2"+LEFTS (AS, 2)) 
310 POKE COORDS, BB 

320 COORDS=COORDS+1 

330 POKE CODRDS, BA 

340 COORDS=COORDS+1 

350 RETURN 


i 
i 
; 
H 
¡ 


o 
o 
o 
o 


La subrutina de la línea 200 es muy útil para almacenar en memoria: 
números decimales con el formato “primero el byte bajo” que el Z80 
espera encontrar en todos sus datos. En este caso se usa para almacenar 
en memoria la información sobre las coordenadas, de forma que pueda ser 
utilizada por la rutina en código máquina para el dibujo. Probablemente 
puedas ver en el listado el funcionamiento exacto de esta rutina: convierte 
los números en una cadena de caracteres que representan al número en: 
hexadecimal. Después utiliza las órdenes RIGHTS y LEFTS para extraer 
los bytes bajo y alto de cada número. 

Con esto se completa este capítulo de rutinas de gráficos. Sin embargo, 
muchas de las rutinas mencionadas en los dos capítulos siguientes están: 
orientadas gráficamente, Por eso ¡no te asustes si todavía no has encontra- 
do exactamente lo que quieres! 


PRINTER ; 
el dat o 


Desplazamiento 
de pantalla 


Antes de nada, ¿qué es un desplazamiento? Pues es el hecho de trasla- 
dar toda una pantalla o parte de la misma, de una vez, conservando la 
imagen expuesta. Esto nos permite hacer cosas muy interesantes; la panta- 
lla puede moverse hacia arriba o hacia abajo, de un lado a otro, y también 
podemos conseguir que una simple palabra o un símbolo gráfico atravie- 
sen la pantalla. Existen rutinas en el firmware que realizan simples despla- 
zamientos verticales y horizontales, y en este capítulo veremos algunas 
rutinas que las utilizan, así como otras que para desplazar trabajarán 
accediendo directamente a la memoria de pantalla. 

Hay dos tipos principales de desplazamiento: el desplazamiento soft- 
ware, que se realiza sin ayuda del hardware encargado de generar todo lo 
relativo a la pantalla, y el desplazamiento hardware, en el que el hardware 
que genera la imagen de la pantalla se manipula de algún modo. 

Empezaremos con una rutina muy simple, que desplaza toda la panta- 
lla hacia arriba o hacia abajo. 


VDESPLZ (DESPLaZamiento Vertical) 

Es una rutina que desplaza la totalidad de la pantalla hacia arriba o 
hacia abajo un número dado de líneas de caracteres, en cualquier modo de 
pantalla. La rutina es relocalizable, y las líneas de texto que se desplazan 
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más allá del margen superior o inferior de la pantalla se pierden definitiva- 
mente. Las líneas insertadas que sustituyen a las otras ya perdidas se 


rellenan con el color 


Requisitos de entrada: 


Condiciones de salida: 
Longitud: 


Bloque de parámetros de VDESPLZ 


10 5 
9008 20 
9008 CD99BB 30 
9DOB  CD2CBC 20 
9DOE  DD4602 ES 
OIL FS $0 
9DIZ CS 70 
9DIS DDI600 80 
9DIÉ  CD4DBC 90 
919 Ci 100 
9DIA Fi 110 
ADIB 10F4 120 
9DID C9 130 


é 


asignado al papel. 


Desde el BASIC accederemos mediante CALL 
dirección, num, dir, donde num es el número de 
líneas que quieres desplazar, y dir puede ser 0 0 
1. Si dir=1, la pantalla se desplazará hacia arri- 
ba, y si dir=0, lo hará hacia abajo. 
Desde código máquina, A=2 y IX apunta a un 
bloque de parámetros; num deberá estar com- 
prendido en el intervalo (0 a 255), aunque los 
Pe grandes simplemente limpiarán la pan- 
talla. 


Todos los registros alterados. 


22 bytes. 
o 
num 
o 
(09 — [dir 


me VDESPLZ 0. 
ORG 40200 


51 color del papel de 
el color para nas tarde 
LD B,(1X+2)3 Numero de desplazamientos 

PusH 3 Preserva los registros 


arriba o hacía abajo? 
el desplazamiento 


PUSH BC 
LD B,CIX+0)3 Haci 
CALL AÉC4D 3 Rea: 
POP BC 


POP AF 
DINZ BUCLE — 5 Repite hasta que se hagan todos 
RET 


FRINT 
PRINT 
PRINT 
FRINT 


MODE 2 1 
LOCATE 1,10 h 
i 
H 
; 
H 
! 


70 CALL 40200,1,dir 
80 as=INKEYS : 1F as= 
90 a=ASC(as) 

100 IF a=241 THEN dir=0 
110 1F a=240 THEN dir=1 
120 G0t0 70 


6010 80 


Comentarios 


Aquí se utiliza una rutina muy útil del firmware para desplazar toda la 
pantalla, a la que se accede llamando a la dirección £BC4D. Al entrar, si 
B=0, la pantalla se desplaza una línea hacia abajo, y si B=1 entonces se 
moverá una línea hacia arriba. El siguiente programa en BASIC también 
demuestra el funcionamiento del anterior código máquina. 


10 MODE 2 


20 FOR X=1 TO 80 STEP 10 
30 FOR Y=1 TO 25 
40 LOCATE X,Y 


SO PRINT Y 
60 NEXT : NEXT 

70 CALL 40200, 1,dir 

80 REM Suponiendo al codigo en 40200 
90 a$=INKEYS : IF a$="" GOTO 90 

100 a=ASC(a$) 

110 1F a=241 THEN dir=0 : REM abajo 
120 1F a=240 THEN dir=1 : REM arriba 
130 GOTO 70 


SEO FO ZOO O 
9.5 4.0 o. A 


Pulsando las teclas que dirigen el cursor hacia arriba o hacia abajo 
conseguiremos mover la pantalla. El texto desplazado fuera de la pantalla 
se pierde definitivamente. 

Pero sería bastante más útil poder desplazar la pantalla hacia los 
lados. Esto conlleva algo más de trabajo, pues tenemos que producir una 
rutina ligeramente distinta para cada modo de pantalla. Ántes de exami- 
nar estas rutinas con detalle, daré unas notas de carácter general. 


Desplazamiento lateral 


Todas estas rutinas desplazan la mayor parte de la pantalla, pero no 
toda. Las líneas O y 24 de la pantalla se utilizan como espacio de trabajo 
por las rutinas y, por ello, no conviene utilizarlas cuando trabajes con 
dichas rutinas. A continuación te explico la razón. 


Estamos manejando una mezcla de desplazamientos sofiware y hard- 
ware para conseguir los resultados deseados. Los desplazamientos laterales 
mediante hardware resultan sencillos alterando lo que se conoce como 
ofíset de pantalla. No dispongo de espacio en este libro para entrar en 
detalles, por lo que me remito al manual firmware o a cualquier otro 
trabajo similar. 


Puedes ver en la figura anterior de qué forma afecta a la imagen un 
desplazamiento lateral con hardware. El primer carácter de la línea se 
traslada al borde opuesto de la pantalla y el resto de los caracteres se 
mueven un determinado espacio hacia la izquierda. Tal y como está 
diseñado el hardware del Amstrad, éste valor depende del offset de pantalla 
de la siguiente manera. 

Incrementando el offset de pantalla conseguimos un desplazamiento a 
la derecha, y disminuyéndolo obtendremos un desplazamiento a la izquier- 
da. El valor actual del offset de pantalla puede obtenerse usando una 
rutina del firmware, como enseguida veremos. Una segunda rutina puede 
ser empleada para volver a escribir el offset de pantalla modificado en los 
circuitos de video. En estos tres programas, el offset en modo 1 y 2 se 
modifica en 2 unidades cada vez. En modo 1 esto provoca el desplaza- 
miento de un carácter. En modo 2 se desplazarán dos caracteres. Así, para 
desplazar un carácter de la pantalla en modo 2 hacia la izquierda sólo 
tienes que dividir por dos el offset. En modo 0 el offset de pantalla se 
modifica en cuatro unidades cada vez que se requiere un desplazamiento. 
Con ello la pantalla se traslada un carácter. La razón de que se requieran 
distintos ofísets para cada modo de pantalla a la hora de desplazar la 
misma se debe a la distinta distribución de la memoria del vídeo para 
cada modo de pantalla. 

Sin embargo, si eres observador, habrás advertido que el desplazamien- 
to que os mostré más arriba no era un verdadero desplazamiento lateral; 
el carácter desplazado en la pantalla se hallaba una línea más arriba o. 
más abajo, según el sentido del desplazamiento, de aquella en la que 
originalmente estaba. Por ejemplo, de un desplazamiento hacia la derecha 


con este método, resultaría que un carácter se saldría del borde derecho de 
la pantalla, reapareciendo en el borde izquierdo, pero una línea más abajo. 
Para un verdadero desplazamiento lateral se requiere que el material 
desbordado por un lado de la pantalla reaparezca por el otro lado, pero 
en la misma línea, de la siguiente manera: 


WD Ba 2.34 1 


Esto puede hacerse usando la rutina SWSCROLL presentada en el 
firmware del Amstrad. Con ella conseguimos desplazar un área en particu- 
lar de la pantalla, hacia arriba o hacia abajo el espacio de un carácter. 
Antes de examinar la rutina de desplazamiento, veremos brevemente las 
rutinas del firmware que vamos a utilizar. 


£BCOB: Esta rutina devuelve el valor actual del offset de pantalla al 
par de registros HL. Entonces podrá modificarse y reenviarse al circuito 
de vídeo. 


£BCOS: Esta rutina te permite dar al offset de pantalla un valor a tu 
elección. A la entrada, el par de registros HL deberá contener el valor del 
offset deseado. 


£BC50: Esta rutina, llamada SWSCROLL, te permite desplazar verti- 
calmente una línea dada de la pantalla. A la entrada, B=0 para un 
desplazamiento hacia abajo, o 1 para un movimiento hacia arriba. 
H contiene el borde izquierdo del área a desplazar, L la fila superior, D el 
borde derecho y E la fila inferior. Todos ellos se representan en términos 
de espacio de caracteres, empezando en 0,0, que es la esquina superior 
izquierda de la pantalla. El registro A contiene el código de la tinta que se 
empleará para rellenar la línea que se desplaza. En nuestras rutinas utiliza- 
remos el color del papel de texto para rellenar la línea desplazada. 


€BB99: Al regreso de esta rutina el registro A contiene el color actual 
del papel para el texto. Antes de usar este valor devuelto por la rutina 
SWSCROLL debemos codificarlo llamando a la rutina de la dirección 
8:BC2C. 


Con un examen de los listados para estas tres rutinas de desplazamien- 
to lateral comprobaremos que utilizamos la rutina SWSCROLL para 


n 


“alinear” las columnas de la imagen que han sido expulsadas por un lado 
de la pantalla y reintegradas por el lado opuesto. 


LDESP2 (DESPlazamiento Lateral 2) 


Desplaza lateralmente dos espacios una pantalla en modo 2. Las líneas 
O y 24 de la pantalla no son desplazadas en el sentido propio de la 
palabra. La rutina puede relocalizarse siempre que la dirección del espacio. 
de trabajo se altere de forma que no coincida con el programa. Los bytes 
proporcionados funcionan únicamente en la dirección 40200. 


Requisitos de entrada: Desde BASIC: CALL dirección, dir, donde 
dir=1 para un desplazamiento a la izquierda y 
dir=0 para un desplazamiento a la derecha. 
Desde código máquina, A=1 y IX apunta a un 
solo byte que contiene a dir. 


Condiciones de salida: Todos los registros alterados. 


Longitud: 90 bytes. 
197 mn LDESPZ ss 
29 ORG 40200 
E pros Prohibe interrupciones 
40 CALL NBB99 
50 CALL ABCZC 
¿0 LD (PAPEL),As Guarda el color del papel 
79 LD A,(IX) ' 5 Decide si as a izquierda O derecha 
ge ce o 
70 IR Z,OTRO 
109 LD m7 
110 LD 1,9 
10 LD 0,79 
130 LO E/24 
120 LD BO 
150 PusH BÉ Y Preparado para desplazar, 
160 PUSH HL 3 guarda los registros 
170 PUSH DE 3 
180 CALL ABCOB 5 
190 INC HL 
209 INC HL 3 Lo actualiza 
219 CALL ABCOS 5 y vuelve a activarlo 
220 LD A, (PAPEL) 
239 POP DE 
249 Poe HL 
250 Por 80 
240 CALL ABCIO — 5 Desplaza una columna, 
270 + 1 espacio de un caracter 
280 CIO jermite las interrupciones 
290 RET 
309 OTRO LD M0 j Prepara los registros para 
19 Lo yo 3 el desplazamiento de colunnas 
320 Lo DA 5 al final de la rutina 
330 LD Es24 
340 LD Bt 
350 LD AL (PAPEL) 
369 Push ar 
370 PUSH BC 


9048 
9049 
9D4A 
9D4D 
9DAE 
9DAF 
9052 
9033 
9054 
9055 
9056 


9057 
903A 
9058 


PUSM DE 
PUSH HL 

CALL 4BCOB 5 Obtiene el offset 

DEC HL 

DEC HL , 

CALL MBCOS 3 

AS 3 (controlador de video) 
POP DE 

POP BC 

POP AR 

CALL %BCSO 5 Desplaza la columna de la 


izquierda, una línea 
hasta el Otro extreno 

er 

REr 

530 PAPEL DEFB 9 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


0.0 0 OO “O Oo ho 


$0 
70 
80 


90 


100 as=INKEYS: IF a$= 
110 IF ASC(a$)=243 THEN CALL 40200,0 
120 REM Teclas de desplazamiento 

130 1F ASC(a$)=242 THEN CALL 40200,1 


140 


REM Desplazamiento a izquierda y 
derecha en el modo 2 

MODE 2 

ORIGIN 0,32 ¿REM Origen de graficos 
de la ventana a desplazar 

WINDOW 1,80,2,24 : REM Ventana de 
texto que se va a desplazar. 

MOVE 0,350: DRAW 640,350 

MOVE 0,150: DRAW 640,150 

LOCATE 1,13 

PRINT "cuando esta frase termine 
dire que" 

CALL 2BD19: REM Espera a cada barrido 
THEN 100 


T 
| 
1 
¿ 


GOTO 90 


9.0 50.00. 5.0.0 mm 


Comentarios 


Las líneas superior e inferior de la imagen no se desplazan propiamente 
hablando, siendo éste el resultado del modo en que la alteración del offset 
afecta al material expulsado por un lado de la pantalla. Son sólo las 23 
líneas centrales de la imagen las que se desplazan. 

En esta rutina se inhiben las interrupciones para conseguir mayor 
velocidad. Hablando de obtener más velocidad, observa cómo son iniciali- 
zados los registros para acceder a SWSCROLL nada más comenzar la 
rutina. Esto reduce el número de instrucciones que deben ejecutarse entre 
la alteración del offset de pantalla y la llamada a SWSCROLL para 
limpiar el borde de la pantalla. 
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LDESP1 y LDESPO son rutinas similares, pero han sido diseñadas 
para usarse en modo 1 y 0, respectivamente. La rutina en BASIC que doy 
a continuación puede usarse para probar el funcionamiento de todas estas 
rutinas. 


10 MODE 2 

20 ORIGIN 0,32 ¿REM No utilizar la linea 
inferior de la pantalla. 

30 WINDOW 1,80,2,24 : REM Ventana de 
texto que se va a desplazar. 

40 MOVE 0,10:DRAW 400, 100 

50 DRAW 150,50 : DRAW 200,50 

60 DRAN 300,60 : DRAW 400,100 

70 DRAW 450,20 : DRAW 500,10 

80 DRAW 600,150 : DRAW 640,10 

90 CALL £BD19: REM Espera al barrido. 

100 a$=INKEYS: IF a$="" THEN 100 

110 IF ASC(a$)=243 THEN CALL 40200,0 

120 REM Teclas de desplazamiento 

130 1F ASC(a$)=242 THEN CALL 40200,1 

140 6010 90 


0, A O 0 0 07070 
a OL 70% iD 00” 10 


Pulsando las teclas de desplazamiento lateral del cursor se conseguirá 
que la figura de la pantalla se desplace correlativamente. 
LDESPO (DESPlazamiento Lateral 0) 


Esta rutina realiza un desplazamiento lateral de un carácter en el modo 
0 de pantalla. 


Requisitos de entrada: Igual que para LDESP2. 
Condiciones de salida: Igual que para LDESP2. 


Longitud: 96 bytes. 
au LOESPO «e 

9008 So aozoo 

008 ES o Pronibe interrupciones 

5009 Coo9as CALL bneoo 

9090 Co2coc CALL aseo 

SD0r 320790 LOT PaRELO 09 Guarda el color del papel 

SDIZ Do7zoS Ear daO O Declón al os a irquierda O der 

SD1S reoo >? 

5017 825 Somo 

o ea Di 

0 Lo do 

TE A 

Sr ela as 


9D21 0600 148 Lo ao 


9023 Cs 150 PUSH BC. + Preparado para despla: 
9024 ES 168 PUSH HL 3 guarda los registros 
9023 05 170 PUSH DE. j en la pila 
9024 CDOBBC 180 CALL WBCOB 3 Obtiene el offset 
9029 110400 190. LD DE, 4 P 
9D2C 19 290 ADD HL;DE 5 Lo actualiza 
9D2D 3A679D 219 LD A, (PAPEL); Gbtiene el color del papel 
9030 CUOSBC 220 CALL ébcos 3 Guarda sl offset en el 6845 
9033 3A679D 230 LD A, (PAPEL)? [controlador de video) 
9D3é DL 240 POR DE 
9037 EL 250 Por 
9038 Ct 260 POP BC 
9039 CDBOBC 270 CALL MBCSO 5 Desplaza una columna, 
200 + el espacio de un Caracter 
703 FB 290 eee Permite las interrupción 
9D3D C9 300 RET 
FOIE 2600 319 OTRO LD M9 j Prepara los registros para 
9D48 2800 320 Lo Lio 3 el desplazamiento de columnas 
9DAZ 1609 330 Lo 0,9 5 al final de la rutina 
9033 1818 349 LD Es24 
9DI6 0601 350 Lo Bs 
9DAB 3A679D 360 LD A (PAPEL) 
9DAB FS 370 PUSH AR. 
9DAC CS 300. PUSH BC 
9040 DS 390 PUSH DE 
9DIE ES 200 PUSH HL. / 
9DAF CDOBRC 410 CALL ABCOB= 3 Obtiene el offset 
90S2 AF 420 XOR A 
9DSS 1194009 430 LD DE,4 5 Alterael offset y lo. 
9036 EDSZ 240 SEC HL,DE 
9DS8 3A679D 450 LD A, (PAPEL) 
9DSB CDOSBC 460 5 envía al controlador de video 
90SE EL 
SDSF DI 2 
7069 CL 290 POP BC 
9061 FL 500 POP AF 
9D6Z CDSOBC 510 CALL ABCTO — ; Desplaza la columna ce la 
E izquierda, una línea 
330 + hasta el útro extremo 
906s FB 530 En 
9066 c9 7 RET 
9067 00 560 PAPEL DEFB O ñ 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


Pic" 
10 MODE O:REM Desplazamiento a i2quierda 
y derecha en el modo 0 y 


20 ORIGIN 0,32 ¿REM Origen de graficos 
de la ventana a desplazar. 

30 WINDOW 1,20,2,24 : REM Ventana de 
texto que se va a desplazar. 

40 MOVE 0,10:DRAW 400,100 

50 DRAW 150,50 : DRAM 200,50 

60 DRAW 300,60 : DRAW 400,100 

70 DRAN 450,20 : DRAW 500,10 

80 DRAM 600,150 : DRAN 640,10 

90 CALL £BDIZ: REM Espera al barrido. 

100 a$=INKEYS:1F a$="" [HEN 100 

110 IF ASC(a$)=243 THEN CALL 40200,0 

120 REM Teclas de desplazamiento 


o 
o) 
o 
o 
o 
lo) 
o 


130 IF ASC(a$)=242 THEN CALL 40200, 1 
140 GOTO 90 


o 


LDESP1 (DESPlazamiento Lateral 1) 
Esta rutina realiza un desplazamiento lateral de un espacio en el modo 1. 


Requisitos de entrada: Como para LDESP2, 
Condiciones de salida: Como para LDESP2, 
vLongitud: 96 bytes. 


2% LDESPL e 


7098 ORO 40200 
9n08 FS DI Prohibe interrupcion 

9099 C0?9BB CALL aBm99 

9DOC CD2CBC CALL ABCzC 

9DOF 326790 LD (PAFEL),Aj Guarda el color del papel 

9012 DD7E09 LD As(IX) ” 5 Decide sí es a izquierda o derecha 
DIS FE0O EIO 

9017 2825 IR Z,0TRO 

9019 2627 Lo 37 

9DIB 2800 LD Lio 

9DID 1627 LD 0,39 

FDA 118 LD Es24 

5021 0600 Lo Bo 

9023 05 FUSH BO $ Preparado para desplazar, 

9024 ES PUSH HL 3 guarda los registros 

9023 DS PUSH DE 3 en la pila 

9024 CDOBBC CALL HBCOD 3 Obtiene el offset 

9029 110208 LD Dr, 2 


9020 19 ADD MIDE 5 Lo actualiza 
902D 346790 LD A, (FAFEL); Obtiene el color del papel 
9039  CDOSBC CALL WBCOS + Guarda el offset en el 6845 
9033 3A679D LD A, (PAPELAS (controlador de video) 
9036 Di DE 

9037 El mo 

9038 Ci BC 


9039 CDSOBC MECO 3 Laza una columna, 
el espacio de un caracter 

9D3C FB 1 Permite las interrupciones 

9D3D C9 

9DIE 2600 .m,0 y Prepara los regístros para 

9049 200 L,o 3 el desplazamiento de columnas 

9DA2 1600 Do j al final de la rutina 

9D44 1E18 Es24 

9DAA 0691 Bi 

9D48 306790 As (PAPEL) 

9048 FS 0 

9DaC Cs Be 

9040 05 DE 

9DAE ES mo 

9DAF  CDOBRO MECOB 5 Obtiene el offset 

9082 AF A 

9D53 110200 DEJZ 5 Altera el Offset y lo 

9056 EDSZ HL) DE 

9058 3A679D. As (PAPEL) 

9058 CDASBC MECOS 5 envía al controlador de video 

9DSE El He 

9DSF Dl DE 

7DS0 El ES 


9DeL FL 509 PoR ar 


9062 CDseBc 510 CALL ABCSO 5 Desplaza la columna de la 
520 5 izquierda, una línea 
530 + hasta el Otro extreno 
9D6S FB 540 El 
7066 CP 550 RET 
9067 00 560 PAPEL DEFB 0 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


h 10 MODE 1:REM Desplazamiento a izquierda H 
H y derecha en el modo 1 H 
20 ORIGIN 0,32 ¿REM Origen de graficos , 
de la ventana a desplazar. , 
30 WINDOW 1,40,2,24 : REM Ventana de ¡ 
texto que se va a desplazar. : 

40 MOVE 0,10:DRAW 400,100 h 
SO DRAW 150,50 : DRAW 200,50 ! 
60 DRAW 300,60 : DRAW 400,100 : 
¡ 

¡ 

| 

i 

i 

ñ 


70 DRAW 450,20 : DRAW 500,10 

80 DRAW 600,150 : DRAW 640,10 

90 CALL £BDI9: REM Espera al barrido. 
100 a$=INKEYS: IF a$="" THEN 100 

110 IF ASC(a$)=243 THEN CALL 40200,0 
120 REM Teclas de desplazamiento 

130 1F ASC(a$)=242 THEN CALL 40200, 1 
140 GOTO 90 


0d YO 294 016.9! Q 
0:06.10.9 4.0.0 


o 


Probablemente adviertas que es posible incorporar todas estas rutinas 
en un único programa, en el que la rutina compruebe el modo de pantalla 
actual y actualice los registros apropiadamente para las rutinas SWSCROLL 
y para el offset de pantalla. 

Acabamos de ver cómo desplazar toda la pantalla hacia arriba, hacia 
abajo y lateralmente. Usando la rutina del firmware localizada en la 
dirección £¿BC5O, también podremos desplazar hacia arriba o hacia abajo 
un área dada de la pantalla, que llamaré ventana de desplazamiento. Las 
dos rutinas que vamos a examinar a continuación desplazan un pequeño 
área de la pantalla lateralmente, una versión horizontal de SWSCROLL. 
El material expulsado por un lado de la ventana de desplazamiento se 
pierde. Sin embargo, para realizar estos movimientos, hay que examinar 
brevemente la forma en que la memoria de video del Amstrad ha sido 
dispuesta, ya que tendremos que elaborar un método de acceso directo a 
la memoria de pantalla para realizar el resto de los desplazamientos de 
este capítulo. El resto de las rutinas de desplazamiento continuarán traba- 
jando con el espacio de un carácter como unidad básica de movimiento. 
Así que vamos con la disposición de pantalla. 

Cada carácter de la pantalla, en cualquier modo de pantalla, está 
formado verticalmente por ocho líneas de pantalla. La pantalla en 
su totalidad tiene una altura de 25 filas, lo que nos da un resultado 
de 200 líneas de pantalla para todos los modos. Todos los modos de 


pantalla utilizan 16384 bytes de memoria, empezando en la dirección 
£:C000 y terminando en la dirección £:FFEF. Las imágenes para todos los 
modos de pantalla tienen un ancho de 80 bytes. Esto es, una línea de 
pantalla de izquierda a derecha, necesita 80 bytes de memoria de pantalla 
para definir su contenido. Esto explica la necesidad de 16384 bytes para la 
memoria de pantalla (200 lineas de pantalla con 80 bytes cada una). 
La disposición exacta de la memoria de pantalla en relación con los 
cuadros de caracteres, etc., dependerá del modo de pantalla en uso, 


Modo 2 


Es el modo de pantalla de uso más sencillo. Al igual que la memoria 
de pantalla en todos los demás modos, la memoria de video se dispone en 
ocho bloques de memoria de 2K, que tras un cambio de modo se organi- 
zan de la siguiente forma. 

En modo 2, cada carácter tiene un ancho de un byte; por esta razón la 
pantalla tiene 80 columnas en este modo. Cada bit dentro de cada byte 
Corresponde a un punto de pantalla. Así, la posición superior dela 
pantalla, 1,1, tras un cambio de modo, se define por el contenido de 
8:C000. El carácter consta de ocho líneas de pantalla, que se, toman de los 
otros siete bloques de memoria de 2K. En este caso, la fila 2 del carácter 
se define por el byte en $:C800, la fila 3 por $¿D000, la fila 4 por £D800, 
y así sucesivamente. 


ESQUINA SUPERIOR IZQUIERDA 
ácoo [E] 
8800 — 


a 


8.D800 


8LE000. 


8.800 —— 


8000 


8/F800 


Disposición de la RAM de pantalla 


Cuadro de un carácter en modo 2 


Si hay gráficos en la pantalla, las posiciones de los caracteres corres- 
pondientes tendrán alterados ciertos bytes de acuerdo con los gráficos 
dibujados. Una vez conocida la dirección dentro de la memoria de panta- 
lla de la fila superior del carácter en cuestión, podemos obtener los otros 7 
bytes que conforman la definición de este cuadro del carácter, añadiendo 
repetidamente 2048 a la primera dirección hasta obtener las direcciones de 
las otras siete líneas de pantalla. En modo 2 no existe información en 
cuanto a color; si un punto de pantalla va a ser expuesto con el color 
principal, el correspondiente bit en el byte apropiado se coloca a 1. Si se 
va a exponer con el color de fondo, el bit se pondrá a 0. La relación entre 
las filas de una misma posición de carácter, estando separadas entre sí por 
2048 bytes, es la misma en todos los modos de pantalla. 


Modo 1 


Aqui se complica un poco el asunto, ya que en este modo existe la 
posibilidad de exponer más de un color. Cada cuadro de carácter tiene un 
ancho de 2 bytes, lo que explica que la pantalla en modo 1 tenga una 
anchura de 40 columnas. El cuadro de un carácter en modo 1 se define en 
la forma de la figura. Al igual que antes, después de un cambio de modo, 
veremos qué definen los bytes en la posición 1,1 de la pantalla. 


8.000 — 8:C001 


8.C800— 8.C801 


£.D000 — £.D001 


Uno de los bytes que forman el carácter define el color de los puntos de 
pantalla, así como el estado en que se encuentren. 

El otro byte de la memoria de pantalla, por tanto, define el estado de 
una línea de pantalla que tiene por anchura la mitad de un carácter. Con 
lo cual el cuadro del carácter es definido por 16 bytes de memoria de 
video. 


Modo O 


Dado que existen dieciséis colores disponibles en este modo de panta- 
lla, cada carácter requiere mayor número de bytes para definirlo; en éste el 
ancho es de cuatro bytes. Esto nos da las veinte columnas de la pantalla 
de texto del modo 0. Inmediatamente después de una orden modo 0 el: 
mapa de la memoria de video de la posición de pantalla 1,1 queda como 
se indica en la página siguiente. 


Disposición de pantalla en modo 0 


Según esto, el modo 0 requiere 32 bytes de memoria de video para 
definir cada carácter. 

Bueno, ya sabemos que cada línea de pantalla, dentro de un mismo 
carácter, queda separada de la siguiente por 2048 bytes. Ahora necesita- 
mos algún medio para hallar en la memoria de video la dirección de la 
línea superior del carácter que nos interese. 

Afortunadamente, los simpáticos chicos de Amsoft han resuelto este 
problema proporcionándonos una rutina firmware que realiza este trabajo. 
Esto se consigue llamando a la dirección £BCIA, y la posición del 
carácter se transmite a la rutina en el par de registros HL. El registro H 
contiene la posición X y el registro L la posición Y. Tanto X como Y 
toman valores de O en adelante, siendo 0.0 la esquina superior izquerda de 
la pantalla. 

La rutina devuelve una dirección en el par de registros HL. Para el 
modo 2, ésta será la dirección de la posición de la fila superior del carácter 
que nos interese. Para los modos 0 y 1 será la dirección del byte más a la 
izquierda de la fila superior. Así la dirección del primer byte de la segunda 
fila será la dirección (HL + 2048). Adentrándonos en las rutinas de bucle 
que enseguida veremos, están las instrucciones de movimiento de bloques 
LDIR y LDDR de la CPU Z-80. Para aquellos que no estén muy 
versados en estas instrucciones, voy a dar una rápida descripción de las 
mismas y de su utilización. 


LDIR y LDDR 


Un método para transferir bytes a través de la memoria del ordenador 
puede ser repetir un determinado número de veces un lazo de instruccio- 
nes como las que a continuación exponemos. 


LD A, (HL) 
LD (DE>,A 
INC HL 
INC DE 


Esta secuencia es muy directa, y realiza la transferencia de forma 
sencilla. El problema surge cuando hay que transferir muchos datos, pues 
esta sentencia, cuando se repite a menudo, requiere demasiado tiempo. Sin 
embargo, el Z-80 tiene implementadas instrucciones de transferencia de 
bloques. La LDIR se ejecuta con la siguiente estructura: 


LD HL,direccion fuente 
LD DE,direccion de destino 
LD ECynumero de bytes 

LDIR 


La dirección en el registro HL es la dirección desde la cual los bytes 
serán transferidos y DE es la dirección donde serán almacenados. El 
registro BC contiene el número de bytes a transferir. El primer byte 
transferido irá a la dirección DE, el segundo a la dirección DE+-1 y así 
sucesivamente. Tanto HL como DE son incrementados en cada transferen- 
cia individual. Una vez que la instrucción LDIR comienza a ejecutarse, no 
parará hasta que todos los bytes sean transferidos. Esto-es mucho más 
rápido que realizar el mismo trabajo con instrucciones individuales del 
Z-80, así que cada vez que tengas un montón de datos que copiar deberias 
usar esta instrucción o la LDDR. LDDR hace lo mismo, con la diferencia 
de que los registros HL y DE son decrementados en cada transferencia 
individual. 

Los listados de estas rutinas de bucle están bien documentados y 
podrás seguir su evolución examinando los listados y las notas antes 
indicadas sobre la disposición de la memoria de pantalla, para los diferen- 
tes modos de pantalla. 


IZDES (DESplazamiento a la IZquierda) 


Esta rutina, en cualquier modo, desplazará un área dada de pantalla, el 
espacio de un carácter a la izquierda. 

Cualquier carácter desplazado fuera del borde izquierdo de la ventana 
de trabajo se pierde. La rutina es, pues, análoga a la SWSCROLL pertene- 
ciente al firmware. 


Mi 


Requisitos de entrada: Desde BASIC: CALL dirección,x1,yl,x2,y2. 
Las coordenadas van desde 1,1, siendo ésta la 
esquina superior izquierda de la pantalla. 
Desde código máquina A=4 y IX apunta a un 
bloque de parámetros como el mostrado a conti- 
nuación, 


x1.y1 


x2y2 
Bloque de parámetros para IZDES 

Condiciones de salida: Todo alterado. 
Longitud: 169 bytes. 

105 ax 12DES ex 
9008 20 ORO 40200 
3008 FEO, 30 ces 
3D0A co 40 RETONZ ' Si no hay 4 parametros, retorno 
3DOB EDiiBc 50 CALL WBCI1 7 Obtiene el modo de pantalla 
9DOE 320090 ¿0 LD c9000»,8 
3o11 EDra7o 70 CALL ANCHO” 4 Numero de caracteres a mover 
DIA Szaz9D 00 Lo (Cam 
SD17 EDSF9D 90 CALL MODOC + valor para que 
DIA 3ZAE9D 100 LD CCARIJA E modo actu 


9DID AF 110 XOR A 


hovim 


BUCLE 


mob 


AJUSTE 


ALTURA 


LD 
Lo 

co 

CALL 
PusH 
Pus 
CALL 


(CAR+1),A 5 Pone a cero el byte alto 
h, (1X+b) 5 Impone las coordenadas de 
Ly (1x4) 3 la esquina superior izquierdi 
ALTURA 5 Numero de lineas? 

Ho 


Ec 

POVIM y Realiza al desplazamiento 

A 

PONESP— 5 Rellena la columna de la 
derecha. 

de 5 Desplaza la siguiente linea 

OBUCLE: 

je 

H y Convierte coordenadas fisic 

MBCIA 5 en posiciones de pantalla 

B,8 1 O Bytes a desplazar 

HL 

DE 


me j Movimiento del caracter 
AJUSTE 5 de byte en byte 
ES 


EC, (CAR) 5 Numero de bytes horizontales 
, Movimiento de bloques 
EC,2048 5 El siguiente esta 2048 mas alla 


HL,BC 5 Direccion de la proxima línea 


DE 3 Froxíma direccion de destino 


BUCLE; Hecho para 8 bytes 


A, (MODO) ; Ajuste del nunero de byte: 


2 3 horizontales a desplazar ( Modo) 


AA $ Modo 1% ancho de 2 bytes 


AA y Modo 05 ancho de 4 bytes 


A, (MODO) ; Ajuste de la direccion 


24 de cada linea, a la anchura del 
13 caracter 

1 

NZ,MOVO 

me 

mo 

Ho 

mo 

mo y Calcula las líneas que 


AS (IX) hay que desplazar 


9091 30 820 INCA 


9092 47 830 LD BA 

9093 El 8s0 OS 

9094 C7 RET 

5D9S DD7EOZ 860 ANCHO LD A,(IX»2) 5 Numero de caracteres 
9098 ES 870 Push HL $ a demplazar horizontalmente 
9D97 DD6G0S 880 LO My 016) 

9D9C 94 890 sua H 

9090 30 900 INCA 

9D7E El 710 POR HL 

909 C9 920 RET 

$DAO ES 930 PONESP PUSH HL ¡ Rellena la columna de 
9DA1 DD6602 940 LD M,(1X+2) $ la derecha con un espacio 
9DAS CD7SBB 950 CALL abB75 

9DA7 3Ez0 960 LD A,32 

9DA9 COSABB 970 CALL abaSA 

9DAC El 980 POP HL 

PDAD Cc 990 REY 

*DAE 0000. 1000 CAR — DEFW 00 

9DBO 00 1010 MODO DEFB O 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


EN] 10 MODE 1 
H 20 CLS : FOR I=1 TO 10 
H 30 PRINT "1234567890123456789012345678" 
io 40 NEXT 
or 50 CALL 40200,2,2,10,10 
: 60 FOR H=0 TO 200 : NEXT : GOTO S0 
Comentarios 


Esta rutina no está protegida contra parámetros incoherentes, así que 
no intentes trabajar con coordenadas ridículamente grandes, o atribuyen- 
do a y2 un valor inferior a yl. ¡Quedas advertido! 

El programa no es relocalizable con facilidad y los bytes utilizados son 
para la dirección 40200. Observa cómo usamos una rutina del firmware 
para recuperar el modo de pantalla en uso. La rutina llamada en «BC11, 
devuelve un valor en el registro A que corresponde al modo de pantalla. 
La rutina entonces mueve los bytes de memoria según el modo de pan- 
talla. 


DESPDER (DESPlazamiento a la DERecha) 


Esta rutina desplaza un área definida en la pantalla el espacio de un 
carácter hacia la derecha. Al igual que antes, cualquier cosa expulsada por 
el borde derecho de la ventana se pierde, La rutina funcionará en cual- 
quier modo de pantalla. 


Requisitos de entrada: 


Condiciones de salida: 


Longitud: 


ceseseniensc3e9sase8 


Sss38388388 


138 bytes. 


; 


OBUCLE 


des POOPpG ESE ENOROgeRaÑa 


MOVIM DEC 


23 
3 


é 
¡ 


DESPDER =* 


20800 
4 

Az 

A 
(MODO) , A 
ANCHO 


CCARO A 
MODOC 
CLARO ¿A 

a 

(CAReD A 
Mm, (uz) 
Lona) 
ALTURA 


Los mismos que para IZDES. 
Los mismos que 


para IZDES. 


Si_no hay 4 parametros, retorno 
Obtiene el moda de pantalla 


Numero de caracteres a mover 


Ajusta este valor para que 
encaje en el modo actual 


Pone a cero el byte alto 
Impone las coordenadas de 
la esquina superior derecha 
Nunero de lineas? 


Realiza el desplazamiento 


Rellena la coluana de la 
derecha 
Desplaza la siguiente linea 


Convierte coordenadas físic 

en posiciones de pantalla 
ta las operacione 

mado actual de pantalla 


8 Byt 


a desplazar 


3 Movimiento del caracter 


de byte en byte 


Numero de bytes horizontales 
Movimiento de bloques 
El siguiente esta 2048 mas alla 


Direccion de la proxima línea 
a trasladar 


Proxima direccion de destino 


Hecho para 8 byt 


Ajuste del numero de bytes 


2 + horizontales a desplazar ( Moda ) 
NZ,MOD1 
A, (CAR) 


AA Y Modo 13 ancho de 2 byti 


A, (CAR» 
AA 
AA y Modo 07 ancho de 4 bytes 


A, (MODO) y Ajuste de la direccion 

2 y de cada linea, a la anchura del 
7 pe 

1 

NZ,MOVO. 

me 


acter 


m 
Ho 
Ho 


Hu y Calcula las line 
AS UNO 3 hay que desplazar 
My ona 

Y 

A 

¿A 

Me 


que 


A, (1642); Numero de caracteres 

HL 4 a desplazar horizontalmente 
M (M6) 

H 


A 
mo 


HL y Rellena la columna de 
H, (Ix+6) 5 la derecha con un espacio 


Ensámblalo y pruébalo con el siguiente programa BASIC, 


MODE 1 

CLS : FOR TO 10 

PRINT "1234567890123456789012345678" 
NEXT 

CALL 40600,2,2,10, 10 

FOR H=0 TO 200 ; NEXT : GOTO 50 


| 
o. 0.0 


Comentarios 


Como ocurría con la IZDES, no se detecta ningún error en los paráme- 
tros introducidos en la rutina. La rutina no es fácilmente relocalizable y 
los bytes del listado son para la dirección 40600. 

Tanto para IZDES como para DESPDER, la parte más lenta es la 
rutina PONESP que rellena la columna que ha sido desplazada fuera de la 
ventana, Esta área del programa utiliza una rutina del firmware. Podría 
sustituirse por una sección de código que escribiese directamente ceros en 
las direcciones apropiadas de la memoria de pantalla, 

El siguiente programa de BASIC probará las rutinas IZDES y 
DESPDER, según las direcciones utilizadas. 


10 MODE 1 

20 REM direccion=40200 para 1ZDES 

30 REM direccion=40600 para DESPDER 

40 direccion=40200 

50 CLS : FOR I=1 10 10 

FPRINT "1234567890123456789012345678" 
70 NEXT 

80 CALL direccion,2,2,10,10 

90 FOR H=0 10 200 : NEXT ¿REM retardo 
100 GOTO 80 


a DD: aUro 0 
e 
o 
S.0.0.0 0 


El problema principal en las rutinas dadas hasta aquí, es que el 
material expulsado por un borde de la ventana se pierde definitivamente. 
Las tres últimas rutinas de desplazamiento que vamos a ver tratan esta 
cuestión, dando una versión de SWSCROLL que recupera el material que 
ha sido expulsado de la ventana, y versiones de la IZDES y de la 
DESPDER que realizan trabajos similares. Estas rutinas funcionarán en 
cualquier modo de pantalla y desplazarán, al igual que las rutinas anterio- 
res, tanto textos como gráficos. 


DESPIZR (DESPlazamiento a la IZquierda Recuperando) 


Esta rutina desplaza un área definida de la pantalla el espacio de un 
carácter a la izquierda. Todo lo que excede del borde izquierdo de la 
pantalla reaparece por el borde derecho. Esto puede resultar muy aparente. 
para desplazar la página de presentación de un programa, encabezamien- 
tos, etc., especialmente bajo el control de las órdenes AFTER o EVERY 
del BASIC, 


Requisitos de entrada: — Igual que para IZDES. 
Condiciones de salida: Todos los registros-son alterados. 
Longitud: 385 bytes. 


EL 
CDB7A2 


20 
10FO 
co 


OBUCLE 


moyIm 


BUCLE 


MoDoc 


moDo 


AJUSTE 


ORG 
ce 
RT 
CALL 
LD 
CALL 
Lo 
CALL 
Lo 
xoR 
110) 
Lo 
Lo 
CALL 


DESPIZA ex 


41500 

4 

nz 

ABC 
(MODO) A 

ANCHO 
(CAR), A 

MODOC 
(CAR), A 

A 
(CAR+1),A 

Has) 
+ (106) 

ALTURA 

Ho 

ES 

OBCAR 
MoVIm 

Bo 

He 


BC, (CAR) 
BC,2048 
Ho 

HL, BO 


DE 


DE 


»o 


ICLE 
A, MODO» 
2 


Az, HoDs 
A, (CAR) 


o 
7,moDO 
AS (CARO 
AA 


A, (CAR) 
an 
AA 


A, (MODO» 
2 


Si no hay 4 parametros, retorno 
Obtiene el modo de pantalla 


Numero de caracteres a mover 


Ajusta este valor para que 
encaje en el modo actual 


Pone a cero el byte alto 
Inpone las coordenadas de 
la esquina superior derecha 
Nunero de lineas? 


Obtiene el caracter 
Realiza el desplazamiento 


Rellena la columna de la 
derecha con el caracter 
Desplaza la siguiente lin 


Convierte coordenadas fisicas 
de pantalla 


Movimiento del caracter 
de byte en byte 


Numero de bytes horizontales 
Movimiento de bloques 
El siguiente esta 2048 mas alla 


Direccion de la proxima linea 
a trasladar 


Proxima direccion de destino 


Hecho para 8 bytes 


Ajuste del numero de bytes 
horizontales a desplazar ( Modo ) 


Modo 13 ancho de 2 bytes 


Modo 0; ancho de 4 bytes 


Ajuste de la direccion 
de cada línea, a la anchura del 


RETO 
ce +. 

IR NZ,MOVO. 
INC HL 

REr 

INC HL 

INC HL 

INC HL 

RET 

PUSH HL 

Lo Ao 
LD MM, CIxra) 
sua Hi 
INCA 

LD BA 
POR HL 

RET 

az 
PUSH HL. 

MH (1x6) 
sue H 
INCA 
Por HL 
RET 
PUSH ML 
PUSH DE 
PUSH BO 
PUSH 1% 

LD HyC1X+2) 
DEC OH 
DEC OL 

LD A, (MODO) 
ceo 1 

IR ZA PMODA 
ce o 
IR ZA PMODO. 
CALL Irc 
LD A (ax 
LO ALA 
INC 1X 
ADD HL¿DE 
DINZ CHPL 
POP IX 
POP BO 
POP DE 
POP HL 
RET 

CALL 1NIC 
CALL PONHL 
CALL PONHL 
DEC ML 
DEC HL 
ADD HL,DE 
DINZ PAL 
ar POK 
CALL INIC 
CALL PONHL 
CALL FORM 
CALL PONHL 
CALL PONHL 
DEC HL 
DEC HL 
DEC HL 
DEC ML 
ADD HL,DE 
DINZ POL 
JR POR 
PUSH HL 
PUSM BC 
PUSH DE 


Calcula las líneas que 
hay que desplazar. 


Numero de caractores 
a despl horizontalmente 


Extrae la columa a rellenar 


Fila y columna física: 
Selecciona la rutina para 


+ ml modo actual de pantalla 


Rutina para el modo 2 
Extrae de 

Lo pone en 

Siguient 

Byte 

Repite esto para 8 bytes 


Rutina para el modo 1 
2 bytes cada caracter 

Almacena 2 bytes en la memoria 
de pantalla 


Direccion del siguiente byte 
de menor. 


Modo 0; 4 byts 


Extrae los 8 byt 
que forman el caracter 


Siguiente caracter de la fíla 


AJO? DDES 1410 PUSH IX 


A3JOB= 23 1420 DEM 
ASOC 2D 1430 DEC L 

A3OD 3A74A3 1440 LD A, (MODO) 3 Chequea el modo actual, 

ASIO FEO1 1450 e y saltando a la rutina preparada 
ASIZ 2816 1460 IR Z,GMODI $ para ese modo 

ASIA FEO 1470 ce o 

AJIé 2831 1480 JR z,GmoDO 

A318 CDJAAS 1990 CALL INIC j Modo 25 1 byte 

ASIB 7E 1500 CHOL LD ACM) 

ASIC DD7700 1510 LD (xa 

ASIF DD23 1520 INC 1X 

ASZ1 19 1530 ADD HL,DE 

A322 10F7 1540 DINZ CHSL 

ASZ4 DDEL 1550 CAROK POR 1X 5 Restaura los registros 

ASZ6 Di 1560. POP DE 

AS27 Ci 1370 POP BC 

A3ze EL 1580 POR HL 

AS29 C9 1590 RET 


Rutina para el modo 1 
Guarda 2 bytes de la memoria 


AS3O CD61AS 1620 CALL SHL de pantalla por cada caracter 
ASIS 28 1630. DEC ML de la lines 
ASIA 28 1650 DEC ML. 
A33S 19 1650 ADD HL,DE Y Siguiente direccion de 
1660 + la RAM de vídeo 
AS36 10FS 1670 DINZ MIL 
AS38 18E0 1680 IR CAROK 
AS3A CDIABC 1690 INIC CALL 4BCIA 3 Rutina que obtiene la 
A33D DD217583 1700 LD IX,TEMP 3 direccion del primer caracter, 
A341 0608 1710 LD B,8 Y introductendolo en HL 
A343 110008 1720 LD DE,2048 
A3A6 CP 1730 RET. 
A347 1084 1740 DINZ MIL 


A349 CDIAAS 1730 GMODO CALL INIC Rutina para el modo O 


, 
AJAC CD61AS 1760 MOL CALL SHL 3 4 bye anchura para 
AJAF CDGIAS 1770 CALL Shi 3 cada caracter 

AJSZ CDGIAS 1780 CALL SHL 

A3SS CD6IAS 1790 CALL SHL 

A3S8 28 1800 DEC HL 

A3S9 28 1810 DEC HL 

A3SA 28 1820 DEC HL 

ASSB 28 1830. DEC HL 

ASSC 19 1840 ADD HL,DE 

ASSD 10ED 1850 DINZ MOL. 

AJSF 1803 1860 IR CAROK 

A361 7E 1870 SH LD Mío 7 

A362 DD7700 1880 LD CÍXD,A 5 la RAM de pantalla, a un almacen 
A36S 23 1890 INC HL 3 de la memoria 

AJ6S DDZ3 1900 INC 1X 

A36S C9 1910 RET 

A367 DD7EOO 1720 PONHL LD A/(IX) 3 Transfiere un byte desde 
A36C 77 1930 LD (M.),A 3 el almacen de menoría, a la 
AJED 23 1940 INC HL Y menoría RAM de pantalla 
AS6E DD23 1950 INC 1X 

A37O C9 1960 RET 

AS71 0000 1970 CAR DEFW 00 

A373 00 1980 CARZ — DEFB O 

A374 00 1990 MODO — DEFB O 

A375 2000 TEMP — DEFS 40 


h 10 MODE 1 
H 20 CLS + FOR I=1 TO 10 
n 30 PRINT "1234567890123456789012345678" 


40 NEXT 


¡ 
j 


50 PEN 2:LOCATE 2,4 : PRINT "..HOLA..." 
60 CALL 41500,2,2,10,10 
70 FOR H=0 TO 200 : NEXT 


: GOTO 60 


Comentarios 


La rutina no es fácilmente relocalizable, y los bytes del listado están 
preparados para la dirección 41500. Como para el resto de las rutinas de 
desplazamiento, la velocidad de movimiento depende del tamaño de la 
ventana que se va a desplazar. Aun así, la rutina es bastante rápida, 


incluso para ventanas grandes. 


DSPDERR (DeSPlazamiento a la DERecha Recuperando) 


Esta rutina desplaza un área definida de la pantalla el espacio de un 
carácter hacia la derecha. Todo el material de la pantalla que exceda del 
borde derecho de la ventana reaparece por el borde izquierdo. 


Requisitos de entrada: Como para DESPDER. 
Condiciones de salida: Todos los registros son alterados. 


Longitud: 399 bytes. 
103 he DSPDERR «e 

9008 20 ORG 40200 

9D08 FEOS. 30 CANO 

9DOA co 20 RET nz 

9D0B— CD11BC so CALL ABCLL 

9DOE — 326E?E so LD MODO», A. 

9D11 CDAS 70 CALL ANCHO. 

9D1A 32689 so LO (CARO, A 

9DI7 C0709D 90 CALL MODO” 

DIA 326B9E 100 LD (CAR), A 

7D1D AF 110 XOR A 

DIE 32609 120 LD (CARe1),A 

9DZ1 DD6602 130 LD My (Ixe2) 

9D24 DD6EOS 140 LD Li (Ixes) 

9027 CD9A9D 150 CALL ALTURA 

9DZa ES 160 OBUCLE PUSH HL 

9D2B CS 170 PUSH BC. 

9D2C CDO0PE 180 CALL OBCAR 

9DZF COSB9D 190 CALL MOVIM 

7DS2 CA 200 Por Pa 

9033 El 210 PoR HL 

?D3A CDBI9D 220 CALL PONESP 
230 4 

9037 20 240 Incl 

9038 10F0 250 DINZ OBUCLE 

9D3A c9 260 RE 

9038 2D 270 MOVIM DEC L 

DSC 25 280 DEC MH 

?D3D CDIABC 290 CALL ABCIA, 

9DAO 3ABEFE 300 LO A (MODO? 


Si_no hay 4 parametros, retorno 
Ubtiene el modo de pantalla 


Numero de caracteres a mover 


Ajusta este valor para que 
encaje en el modo actual 


Pone a cero el byte 
Extrae 1 

la esquí 
Numero de lineas? 


Obtiene el caracter 
Realiza el desplazamiento 


Rellena la columna de la 
derecha con el caracter 
Desplaza la siguiente linea 


Convierte coordenadas físicas 
en posiciones de pantalla 
Ajuste en concordancia con el 


oz 


BUCLE 


moDOC 


ALTURA 


ANCHO. 


PUSH 
Lo 
LD 
sub 
INC 
Lo 
PoR 
RET 
LD. 
PUSH 
Lo 
sue 


DE 
mo 
HL, BO 
HL 
DE 
HL 
BC 
BUCLE 


A, (MODO) 
2 

1NZ, MOD1. 
A, (CAR) 


a 
BA 
me 


A, mz) 
HL 

H, (M6) 
H 


modo actual de pantalla 


8 bye 


a desplazar 


Direccion a desplazar, en DE 
Obtiene la direccion desde la 
que se desplaza el byte del 
caracter 


Numero de bytes horizontales 
Movimiento de bloques 
El siguiente esta 2049 mas alla 


Direccion de la proxima linea 
a trasladar 


Proxima direccion de destino 


Hecho para 8 byte: 


Ajuste del numero de bytes 
horizontales a desplazar ( Modo ) 


Modo 15 ancho de 2 byte 


Modo 0; ancho de 4 bytes 


Calcula las líneas que 
hay que desplazar 


Numero de caracteres 
a desplazar horizontalmente 


cx br 


+ Extrae la columna a rellenar 


MH 
L 3 Fila y columna físicas 

A, (MODO) 5 Selecciona la rutina para 
k 3 el modo actual de pantalla 
Z,PMODI 


INIC 3 Rutina para el modo 2 
A, (IX) 5 Extrae de la memoría 

(HL), A 5 Lo pone en la menoría de pantalla 
1% 7 Siguiente posicion de la menoría 
HL,DE 5 Byte de la RAM de video 

cur * Repite esto para 9 bytes 


PONML 5 Almacena 2 bytes en la memoria 
meo $ de pantalla 


HL,DE 5 Direccion del siguiente byte 
PL ¡ de memoria 


INTO, 3 Modo 01 4 bytes 
5 Extrae los 4 byte 
3 que el caracter 


uE 


'FRRRR 
Ñ 


3 Siguiente caracter de la fila 


R8F3Z 


NON=pria 


¿GMODO. 


E 
ñ 


3 Modo 25 1 byte 


ES 
A 


3 Restaura los registros 


PERE 


mue ' Rutina para el modo 1 
sul Y Guarda 2 bytes de la memoria 


2041 CD722D y de pantalla por cada caracter 


2044 28 ¡ de la linea 

2043 28 

2046 19 Y Siguiente direccion de 
la RAM de video 

2047 10F5 

2049 1880 


2048 CDIABC 
2D4E DD21862D 


y Rutina que obtiene la 
3 direccion del primer caracter, 


2052 0608 j introduciendolo en HL 
2034 110008 

2037 Cc? 

2058 10E4 

2054 CD4B2D ¡ Rutina para el modo 0 
205D CD7220 Y 4 bytes de anchura para 


2060 CD722D 
2063 CD722D 
2066 07220 
2069 2B 
zD6A 28 
2068 28 
2D6C 28 
2060 19 
206 —10ED 
2070 1803 
2072 7E 
2073 DD7700 
2076 23 
2077 DD23 
2079 CP 


Y cada caracter 


3 Transfiere un byte d 
5 la RAM de pantalla, 
5 de la memoría 


1 Transfíere un byte d 
Y el almacen de nemorí 
3 memoria RAM de pantall 


2070 77 la 


2086 2090 TEMP DEFS 40 


Ensámblalo y pruébalo con el siguiente programa BASIC, 


MODE 1 

CLS : FOR I=1 TO 10 

PRINT "1234567890123456789012345678" 
NEXT 

PEN 3S:LOCATE 2,4 3 PRINT "..HOLA..." 
CALL 40200,2,2,10, 10 

FOR H=0 TO 200 : NEXI + GOIO 60 


Comentarios 


Esta rutina tampoco es relocalizable. Los bytes del listado están prepa- 
rados para la dirección 42000. 

Tanto DESPIZR como DSPDERR pueden probarse con el progra- 
ma en BASIC que se listó al hablar de IZDES dentro de este mismo 
capítulo. 
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DESPVR (DESPlazamiento Vertical Recuperando) 


Esta rutina desplaza un área de la pantalla hacia arriba o hacia abajo. 
El material desbordado por el borde superior o inferior de la ventana 
reaparece por el borde opuesto. La rutina funciona en cualquier modo de 
pantalla. 


Bloque de parámetros de DESPVR 


Requisitos de entrada: Desde BASIC, CALL. dirección,x1.y1,x2,y2dir, 
donde: 
xl 


borde izquierdo del área 

borde superior del área 

x2 = borde derecho del área 

borde inferior del área 

O desplaza hacia abajo 

dir = 1 desplaza hacia arriba 

Las coordenadas van desde 1,1, siendo ésta 
cuadro del carácter situado en la esquina su 
rior izquierda de la pantalla, Si la rutina es 
mada desde código máquina IX apunta a 
bloque de parámetros adecuado y A debe con 


ner el valor 5. 
Condiciones de salida: Todos los registros son alterados, 
Longitud: 914 bytes, incluyendo la memoria temporal 
buffer. 
105 2 DESPYR me 
a0z8 20 ORG 41000 
A028 FEOS 30 ces 
a02a co 20 RET NZ 3 Retorna sí no hay 5 parametros. 
AO28— CD998B 30 CALL 9BB79 


2827 


cozcBc 
32B9A3. 
DD7E00. 
FE0O 
2026 
Epazao 
DDS08. 
DDSEO6 
3E01 
32FBAO 
CD97A0 
CDDFAO 
CD87AO 
DD6608 
DDSEOZ 
3800 
32FBAO 
CD97A0. 
co 
CD87Ao 
DDS608 
DDSEO2 
3E01 
32FBAO 
cD97AO 
CODFAO 
CD87AO 


ES. 
DD7E04 
DDS608 
94 
47 
30 
326328 
0% 


El 
57 

ES 

DS 

ES 

DDES 
DDZ16428 
0608 

ES 

E 

20 
CDIABC 
EDA36028 
110008 
cl 

cs 
3A6320 
27 

ES 


110 arRIRa 


250 ABAJO 


400 ANCH 


500 LINEA 


CALL MBCZC 


LD (PAPEL),A 5 Guarda el papel para textos 
Lo ADO 

ce oo 3 Decide sí es hacía arriba o 
IR ZABAJO 5 hacia abajo 

Far ales 3 Anchura de la ventana 


LD H,(1X+8) 
LDL, (IXe6) 


LD Ass 
LD (DIR,A 

CALL LINEA 5 Almacena la linea superior 
CALL DESPLZ j Desplaza 1 hacia arríba 
CALL ANCH 


LD HC 
LD Li CIxe2) 


LD AO 
LD DIR, A 

CALL LINEA, y Escribe La linea en la parte 
RETO inferior 

CALL ANCH 

LD H, (1X+0) 

LDL, t1X+2) 

LD Al 

LD (DIR),A 

CALL LINEA Y Almacena la linea inferior 
CALL DESPLZ Desplaza 1 hacia abajo 

CALL ANCH 


LD H,C1X+8) 
LDL, CIx+6) 


CS 3 Se prepara para escribir 
LD (DIRA 

CALL LINEA, 3 Escribe La línea almacenada 
RETO; en la linea superior 


de la ventana 
PUSH HL 
Lo A 
LO H) (1x48) 
sua Hi 
LO BA 
A 


LD (ANCHO), A 
INC OB 3 Ancho en el registro B 


Preserva los registros 


Conoce la direccion del caracter 
Ancho del caracter en NUEVOA 
Actualiza DE 


0 


LD A, (ANCHO) 5 Conoce el numero de caracteres 


LD BA 

PUSH HL. 3 Guarda la direccion de comienzo 
de la line: 

PUSH BC. Guarda el numero de caracteres 


; 
LD BC, (NUEVA); Conoce la anchura en bytes 


Lo A CDI 


ceo 1 y lo introduce en el almacen 
temporal de memoria 
JR Z.FONESP 5 dependiendo del valor de DIR 
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2029 7E 760 LD A, CHLo 

2B2A DD7700 770 Lo A 

2020 DD23 780 CAROK INC IX ; Siguiente byte. 

2B2F 23 790 INC HL j Escribe una línea del caracter 

2830 10FO 800 DJNZ BUCLE 

2B32 01 810 POP BC 

2933 10E8 820 DINZ BUCLE! y Realizara todo esto para 
830 3 todos los caracter 
8; de la ventana 

2835 El eso PoR HL 

2034 19 86 ADD HL,DE y Obtiene la direccion en RAM de 
870 y pantalla, de la línea 

2837 C1 890 Pop pc 

2838 10DD 890 DINZ OBUCLE 4 Repite para todo el caracter 

ZB3A — DDEL 900 POP IX 

2830 El 210 POP ML 

2B3D DI 920 POP DE 

2BJE CA 930 POP BC 3 Restaura los registros 

283 Co 940 RET 

2B40 DD7E00 9350 PONESPLD AX) ' 

2843 77 960 LO CLA 

2B44 1887 970 IR CAROK 

2B44 DD6608 980 DESPLZ LD M,(IX*8) 5 Desplaza un area 

2849 DD6E0S 790 LDL, (1x6) 

Bac DD360% 1000 LD D,(Ix+a) 

2B4F DOSEOZ 1010 LD (1Xe2> 

2852 DD4G00 1020 LD Bm 

2835 3A202E 1030 LD As (PAPEL) 

2658 25 1040 DEC MH 

2859 2D 1050 DEC OL 

2850 15 1060 DEC D 

2B5B 1D 1070 DEC E 

2BSC CDHOBC 1080 CALL ABCSO. 

285F Co 1090 RET 

2B60 0000 1100 NUEVOA DEFW 00 

2B62 00 1110 DIR DEFBO 

2B63 00 1120 ANCHO DEFB O 

2864 1130 BUFFER DEFS 700 

2E20 00 1140 PAPEL DEFB O 


Ensámblalo y pruébalo con el siguiente programa BASIC, 


o 10 MODE 1 
20 direccion=40200 
o 30 CLS : FOR I=1 TO 10 
40 PRINT "1234567890123456789012343678" 
50 NEXT 
o H 60 PEN 3:LOCATE 2,3 : PRINT “** HOLA *” 
H 70 G$=INKEYS : IF G$="" [HEN 70 
o; 80 1F ASC(G$)=240 THEN dir=1 
4 90 IF ASC(6$)=241 THEN dir=0 
o! 100- CALL 41000,2,2,19,6,dir 
i 110 GOTO 70 
Comentarios 


La rutina es no relocalizable, debido al empleo extenso de subrutinas. 
Los bytes proporcionados son para la dirección 41000, 


Las tres últimas rutinas utilizan temporalmente un área de la memoria. 
Esto se utiliza de la siguiente forma, Para la DESPIZR y la DSPDERR 
cada línea de pantalla de la ventana desplazada se mueve hacia el lado 
requerido. Sin embargo, antes de desplazarse, el área que se va a perder 
por el desplazamiento es copiada temporalmente en el área de memoria 
antes indicado. Esta sólo contendrá la cantidad de memoria necesaria para 
definir un cuadro de carácter, por lo que el máximo será de 32 bytes para 
un cuadro de carácter en modo 0. Cuando finaliza el desplazamiento, 
copiamos el contenido del área de memoria temporal y se escribe en la 
línea del lado opuesto de la ventana que acaba de ser desplazada. Como 
sólo estamos copiando el contenido de la memoria de pantalla, la informa- 
ción en cuanto al color y los posibles gráficos se mantiene, así como los 
datos del carácter. En la DESPVR, debemos retener toda una fila de 
pantalla. Esto nos dará un máximo de (80+8) bytes, teniendo en cuenta 
que alguien querrá desplazar la pantalla en su totalidad. Esto implica 80 
bytes de ancho y son necesarios 8 bytes para cada fila de pantalla en 
términos de líneas de pantalla. Cada vez que haces un desplazamiento, la 
línea de pantalla que de otro modo se perdería, se copia en esta área de 
memoria temporal o buffer. Así, después de un desplazamiento, el conteni- 
do del buffer se copia en las áreas de memoria de pantalla apropiadas, 
para restablecer la imagen en el otro extremo de la ventana. 
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 FRINTER. 
det, dato 


Más rutinas 
de pantalla 


Este capítulo presenta un variado surtido de rutinas para la manipula- 
ción de la pantalla. Comenzaremos viendo unos cuantos métodos para 
limpiar la pantalla. 


Borrando la pantalla 


La forma más fácil de hacerlo desde código máquina es llamar a la 
rutina situada en la dirección £BC14. Esta colocará toda la pantalla con 
la tinta O; justamente lo que hace CLS. Sin embargo, el cursor de texto no 
retornará a la esquina superior izquierda de la pantalla. Alternativamente, 
el equivalente más directo a CLS es: 


LD” Ajiz 
CALL HBBSA 


que limpiará la ventana de texto y localizará el cursor en la esquina 
superior izquierda de la ventana, La orden CLG, por supuesto, también 
sirve para limpiar la pantalla, pero la llamada a £BCI4 realiza este 
trabajo igualmente bien. 

Sin embargo, todos estos métodos de limpieza de la pantalla son 
demasiado repentinos y en alguna ocasión es útil tener una rutina que 
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e 


108 


desvanezca gradualmente la imagen de la pantalla, en vez de borrarla 
súbitamente. Por ejemplo, podrías usar una rutina que difumine poco a 
poco la página de presentación de un programa que hayas escrito, mante- 
niendo tu nombre expuesto el mayor tiempo posible. Para ello, aquí tienes 
un par de rutinas que te ofrecen esta posibilidad 


DCLS 


Esta rutina desvanece la pantalla hasta que toda ella esté con la tin- 
ta 0, Es relocalizable. 


Requisitos de entrada: Desde BASIC o código máquina; CALL direc- 

ción. No es necesario ningún parámetro. 
Condiciones de salida: Los registros AF, HL y DE son alterados. 
Longitud: 18 bytes. 


193 mu DCLS «sn 
9008 20 ORG 40200 
9008 1EFE 30 LD E,234 5 Mascara inicial 
$D0A — 2100C0 0 BUCLEO LD HL,NCOOO; Comienzo de la memoria de pantalla 
$000 78 50 BUCLEL LD AJE 5 Carga la mascara en A 
DOE A6 60 AND (ML) 3 Enmascara un byte de la RAM 
DOF 77 70 Lo (HD, 
807 su posición 

9010 23 90 nc HL 3 Siguiente byte de la RAM 
9D11 7D 100 LD AL 
9012 Ba 110 A] 3 Es la direccion 00007 
3013 20F8 120 AR NESBUCLEZ) St nos vuelva otra vez 
9DIS CRIS 130 RL 3 Rotación de la mascara 
9017 38F1 140 SR E,pucueo) Repetir mlentras 
9019 09 150 Rer 

Pruébalo con 


10 MODE 1:FOR T=1 TO 25 
20 PRINT STRING$(39,*"):NEXT:CALL 40200 


máscara mediante la operación AND y devuelto otra vez a la memoria 
pantalla. Para dar un poco de velocidad al asunto, el final de la memori: 
de pantalla se busca chequeando el par de registros HL, hasta que conten- 


gan el valor cero. La memoria de pantalla termina en la dirección £.FFFF 
y si incrementamos HL en el instante en que contenga este valor, el nuevo 
contenido será 0000. Observa también la forma en que el programa 
detecta si los 8 bits del byte han sido puestos a cero. Esperamos hasta que 
el flag C contenga un cero, indicando con ello que el O que rotaba por el 
byte ha terminado sus desplazamientos y que ya ha pasado por todos los 
bits del byte, 


CLSDESPLZ (CLS DESPLaZando) 


Esta rutina limpia la pantalla desplazando su contenido 25 líneas hacia 
arriba o hacia abajo. La rutina es relocalizable. 


Requisitos de entrada: Desde el BASIC usaremos la sentencia CALL 
dirección, desp. Donde desp=0 indica que quere- 
mos un desplazamiento hacia abajo. Si lo que 
queremos es un desplazamiento hacia arriba, lo 
indicaremos con desp=1. 

Desde código máquina, IX contiene la dirección 
del byte de memoria que contiene el valor desp, 
que especifica qué tipo de desplazamiento se re- 


quiere. A=1. 
Condiciones de salida: Todos los registros alterados. 
Longitud: 48 bytes, incluyendo el almacenamiento tem- 

poral. 

105 1% CLSDESPLZ 00 

9008 20 ORG 40200 
9008 DD7E0O 30 LD A 
9003 325690 20 Lo <bIm,A 
9DOE 09988 30 CALL 88899 
DIA CDZCBC so CALL WeC2C 1 Obtiene la tinta para el papel 
9DIA 323790 70 LD (PAPEL),A 3 de textos y lo almacena codificado 
9D17 2600 so LD Ho Y Borde izquierdo, 
DIS 200 50 Lo Lo 3 fila superior, 
9D1B— 1E18 100 LD ES24 y lnea inferior a desplazar 
9DID CDI7BC 110 CALL BÉCI7 5 Obtiene la ultima columa 
9DZO 50 120 LD D,B 
9DZ1 0619 130 Lo B725 
9025 CS 140 BUCLE FUSH BC 
9024 05 150 PUSH DE 
9025 ES 180 PUSH HL 
9DZ6 3AS69D 170 LD A,CDIR) 
39029 47 190 LD BA 
IDZA 3AS79D 190 LD Ap CPAPEL) 
9DZD EDSOBC 200 CALL aBCSO 
9D3o EL 210 PoR HL 
9DS1 Di 220 POP DE 
9D32 CL 250 POP BC 
DSZ 10EE 240 DINZ BUCLE 
$9D3S Co 250 RE 
9036 00 260 DIR DEFBO 


9D37 00 270 PAPEL DEFB O 


1o 


Pruébalo con esto: 


10 FOR T=1 TO 25:PRINI SIRING$(39,"*") 
a 20 NEXT:CALL 40200,1 


Comentarios 


Los bytes hexadecimales listados son para la dirección 40200. Cuando 
relocalices la rutina, no olvides cambiar la dirección de la memoria tempo- 
ral utilizada. En este programa, sólo se maneja una nueva rutina de la 


- ROM, la llamada a £BC17, En el anterior capítulo vimos la rutina de 


desplazamiento. Esta rutina en £BC17 nos devuelve la última columna y 
fila de pantalla disponibles en el modo actual de pantalla. Es denominada 
SCR CHAR LIMITS por AMSOFT, y a su regreso el registro B y el regis- 
tro C contienen, respectivamente, la última columna de pantalla y la última . 
fila disponible de la pantalla. Utilizamos esta información para darle a la ruti- 
na el número correcto de columnas a desplazar para cada modo de pantalla. 


En la programación de rutinas de juegos, es a menudo útil detectar si 
el espacio de un carácter está o no ocupado por otra cosa antes de colocar 
otro carácter en ese espacio. Las siguientes dos rutinas están diseñadas 
para ayudarte en estas situaciones. 


RCARAC (Reconoce CARACteres) 


Esta rutina devolverá el código ASCH de cualquier carácter identifica- 
ble en una posición especifica de la pantalla. 


Requisitos de entrada: Desde BASIC, CALL dirección,x,yGcaract%,, 
donde x es la coordenada X, y es la coordenada 
Y, caracto, es la variable que contendrá, al retor- 
nar, el resultado de la llamada. 
Desde el código máquina, el registro IX apuntará 
a un bloque de parámetros de 6 bytes como el de 
la figura. A=3. 


Bloque de parámetros 
y para RCARAC 


o + (100) 


Condiciones de salida: En BASIC, caract%, contendrá el código ASCII 
si el carácter fue reconocido. En caso de que el 
carácter no fuera identificado, la variable conten- 
drá el valor 256. 

Desde código máquina, la posición (IX) conten- 
drá el código ASCII de un carácter “legal” y 
(IX+1)=0. Para un carácter no reconocido por 
el sistema, entonces (IX+0)=0 y (IX+1)=1. Al 
ternativamente, C=1 (flag de acarreo activado) y 
A=código ASCII de un carácter legal; en caso 
contrario, A=0 y el flag de acarreo “C” puesto 


a cero. 
Longitud: 31 bytes, 
9008 10 ORO 40200 
5008 FEOS 2 E 
SBon co E ñEr Na Y Retorno para un nunero 
20, Sfroneo Be parametros 
9008 DDesos so Lo macia) 
cr PAE 
ome 7 CAL aber ona el cursor 
oDiá EnóceD 00 CALL emmso 4 pe 
3017 bneEDo 50 Lino 
SDIA Bpesos 100 do nn 
3010 3008 110 JR NÉLNOCAR $ SL el caracter no es conocido... 
SDE 77 120 LD (MLIsA 5 Carga el codigo ASCIL en 
3020 25 e mea 5 da arabe 
3021 3000 lao Lo 0 
3023 09 150 
30za 3600 1S0NICAR LD. (MIJO 59% el caracter no es conocido, 
ES 10 Tc Ho 5 vee au 
3027 3801 h EEN 
5027 09 150 mer 


Pruébalo con esto: 


10 LOCATE S,10:PRINT "UN-CARACTER" 
20 FX=0:CALL 40200,10,10,8FZ 
30 PRINT FZ 


oo 


Comentarios 


La rutina debe llamarse en compañía de tres parámetros; de otro 
modo, se provocará un regreso inmediato al BASIC. Recuerda que, utili- 
zando variables con el prefí ijo, (2, la variable tiene que haber sido declarada 
previamente. La causa más típica de obtener 256 al retorno es que una 
orden de gráficos como PLOT o DRAW haya dejado un punto o una 
línea en ese espacio de carácter en particular, alterando*con-ello la imagen. 


”n 


Una segunda causa para que la rutina devuelva el 256 es que los colores 
del papel y la pluma hayan sido cambiados después de que la imagen 
fuera impresa en pantalla. La forma de evitar esto último es chequear la 
posición del carácter con todas las combinaciones de papel y pluma. Sin 
embargo, como lo que normalmente buscamos es la presencia o ausencia 
de algo, la rutina sigue siendo muy útil. 

Una rutina similar es denominada CPUNTO, pero ésta nos devuelve 
el color de la tinta encontrado en un punto determinado de la pantalla. 


CPUNTO (Color del PUNTO) 


Devuelve al usuario el color de la tinta de un punto (pixel) específico. 
La rutina es relocalizable. 


Requisitos de entrada: Desde BASIC, usaremos CALL dirección,x, 
y, EJ%, donde x,y son las coordenadas del punto 
y J%, es la variable que contendrá el valor de la 
tinta al regreso de la rutina. Si partimos desde el 
código máquina, IX apuntará a un bloque de 
parámetros como el de la figura. El registro 
A=3, 


| OO] 
timer 0 Jm 


Bloque de parámetros de CPUNTO 


Condiciones de salida: Todos los registros son alterados. Si se transfiere un 
número erróneo de parámetros, se regresa inme- 
diatamente al BASIC o al programa en código 
máquina que hizo la llamada. 


3 Si no hay 3 parametros, retorno 


DOE 06603 “o LD MH, CID) 
9D1L DDSEO4 70 LD E,C1X+4) 


9DIA  DDS60S E LD DC(1xe5) 

9017 COFOBB 90 CALL eBBFO 5 Obtiene la tinta de HL y DE 

9DIA DDEEOO 100 LDL, CIxe0r 

9DID DD6601 110 LD Hp CIxe1 

9020 77 120 LD (ML),A 3 Almacena el valor de la tinta 
1304 en la variable 

9021 23 140 INC HL 

9DZ2 3600 150 LD (Ho, 

9024 c9 160 REr 


10 FZ%=0 
20 CALL 40200,B0,390,,0F% 
30 PRINT FZ 


Comentarios 


Tanto en esta rutina como en RCARAC, si lo único que pretendes es 
usar las rutinas desde código máquina, entonces será más fácil llamar 
directamente a la rutina de la ROM sin poner el resultado en la variable 
apropiada. Las dos rutinas de ROM utilizadas son las siguientes: 


SBB60: Esta fue discutida en el capítulo 4. 


SBBFO: Esta rutina es accesible cuando DE contiene la coordenada X 
del punto en cuestión y HL contiene la coordenada Y. A la salida de la 
rutina, el registro A contendrá el color de la tinta. 


La siguiente rutina es otra de las “decorativas”. Invierte la pantalla 
complementando todos los bits de la memoria de pantalla que estén a 1, 
poniéndolos a 0, y viceversa. 


PINVIERT (INVIERTe Pantalla) 


Cambia la pantalla complementando cada byte de la memoria de 
pantalla. Sirve para los tres modos. La rutina es relocalizable. 
CALL dirección. 
Condiciones de salida: Son alterados los registros HL y AF. 
Longitud: 12 bytes. 


114 


HL, 1c000 
BUCLE LD A,íHL) 5 Extrae un byte de la pantalla 
lementa el byte 


3000 77 LD (HA 3 Vuwivw a almacenario en pantalla 
9DOE INC HL 3 Siguiente byte 

9DOF 7D LD AL 

FDIO BA or o 

9D11 20r8 100 JR NZ,BUCLE + Repíte sí HL no es cero 


H 10 FOR T=1 TO 25:PRINT STRING$(39, "*") 
; 20 NEXT: CALL 40200 
pl 


Comentarios 


Cada byte de la memoria de pantalla desde £C000 hasta £FFFF es 
complementado. Esto significa simplemente que cada O es convertido en 
un 1 y que cada 1 es reemplazado por un 0. Por ejemplo, el byte 10101010 
al ser complementado se convierte en 01010101. El cambio de color que se 
produce puede ser realmente interesante, en especial en el modo Ó con 
varios colores a la vez en pantalla. Si hacemos una segunda llamada a la 
rutina, la pantalla volverá a su estado original. 


La siguiente rutina es sencilla, pero con un fuerte uso de la memoria. 
Puede ser extremadamente útil cuando necesitemos rápidas alteraciones de. 
la imagen que se presenta en la pantalla, Vamos a utilizar 16K de 
memoria, comenzando desde la posición 26000 en decimal, como una 
“pantalla” temporal que puede contener una copia de la propia pantalla. 
Podemos dibujar una imagen en la pantalla, copiarla en esta segunda 
pantalla, y después dibujar una segunda imagen. Cuando deseemos visuali- 
zar en pantalla el contenido de la segunda pantalla, transferiremos simple- 
mente el contenido de la RAM desde la posición 26000 a la memoria de 
pantalla, pr 5 


+ SEGUNDAP (SEGUNDA Pantalla) 


Esta rutina permite el uso de un área de la memoria como una 
segunda “pantalla”. Esta zona de memoria puede contener una copia de la 
imagen actual de la pantalla. La pantalla así salvada en la RAM puede ser 
restaurada posteriormente de una forma casi instantánea. 


Requisitos de entrada: Desde el BASIC, usaremos CALL dirección, n; 
donde n especifica el sentido de la transferencia 
de datos: n=0 significa que la transferencia se hace 
desde la pantalla a la RAM y n=1 que la trans- 
ferencia se hace desde la RAM a la memoria de 
pantalla. Partiendo del código máquina, IX 
apunta hacia un byte de memoria que contendrá 
el valor de n. El registro A=1. 


Condiciones de salida: Todos los registros alterados. 


Longitud: 21 bytes, más el área de memoria comprendida 
entre 26000 y 42384, ambos inclusive. 


, a% SEGUNDAP ++ 


$las ORE_ 25000 

SLAB FEOL 30 ceo 

S1RAA co 20 RETONz | Retorna ante un numero erroneo 
50 + de parametros 

61AB  DD7E0O $0 Lo A 

SIAE FEO 70 ce o 

£1BO 2800 so IR Z,ABAJO 5 Si es 0, de pantalla a memoria 

£1B2 110000 2 LD DE,NCOOO 5 Transfiere de mencría a pantalla 

SIBS 219065 100 LD HL;26000 

S1B8 010040 110 LD BCS R4000 

SIB EDBO 120 LDIR 

S1BD C7 130 RT 

S1BE 119065 140 ABAJO LD  DE,26000 

S1C1 Z100cO 130 LD HL,AcO0o 

SICA 010040 160 LD BC,44000 

6107 EDBO 170, LDIR 

S1Co c9 180 RET 


Pruébalo con esto: 


lv CALL 25000,0 
20 CLS: INPUT"Pulsa ENTER para restaurar 
la pantalla",a$ 


30 CALL 25000, 1 
40 GOTO 40:REM Se evitan desplazamientos 


Comentarios 


Advertirás que el área de memoria utilizada para el almacenamiento 
temporal puede tener una localización un tanto caprichosa. La razón de 
esto es sencilla. El área de la segunda pantalla necesita tener una longitud 
de 16384 bytes, y si usáramos posiciones de memoria más altas, terminaría- 
mos escribiendo sobre el bloque de rutinas de salto del firmware. El 
resultado de esto, como podrás suponer, es un desastroso accidente del 
sistema. Además nuestra rutina en código máquina deberá estar o bien 


15 


116 


entre el final de nuestra “pantalla” y del bloque de saltos del firmware, o 
bien en una dirección inferior a 26000. A pesar de todas estas contrarieda- 
des, la rutina es relocalizable. 


Otros puntos a observar son los siguientes: 


1. Sólo se obtendrán resultados coherentes si el modo de pantalla 
presente en el momento de restaurar la segunda pantalla coincide con 
el modo que se estaba usando en el momento de almacenar la 
pantalla. 

2. Una imagen debe ser guardada antes de que ocurra ningún desplaza- 
miento. Cuando queramos “cargar” la segunda pantalla desde la 
RAM deberá hacerse inmediatamente después de un cambio de 
modo. Las operaciones de desplazamiento alteran la forma en que la 
memoria de pantalla se corresponde con posiciones particulares de 


pantalla. 


SEGUNDAP tiene el inconveniente de destruir la imagen que había en 
pantalla, al realizar la transferencia desde nuestra segunda pantalla a la 
pantalla principal. La siguiente rutina cvita este problema mediante un 
intercambio de los contenidos de las dos pantallas. 


PCANJE (CANJE de Pantallas) 


Esta rutina canjea las dos “pantallas” poniendo así en la memoria la 
imagen de la pantalla, empezando desde la posición 26000 y presentando 
por pantalla el contenido de la RAM desde la posición 26000. La rutina es 
relocalizable dentro de los límites impuestos por las notas de SEGUN- 
DAP. 


Requisitos de entrada: CALL dirección. 
Condiciones de salida: Todos los registros son alterados. 


Longitud: 18 bytes, más la memoria comprendida entre las 
posiciones 26000 y 42384, ambas inclusive. 


193 2. PCANJE «e 
'S 25000 
30 LD DE,26000 ; Inicializacion de registros 
20 LD HL,ACOOO 
50 BUCLE LD C,(ML) 3 Toma un byte de la pantalla 
so LD A, (DE) 3 Toma otro del almacen temporal 
70 LD (DA 1 Siguiente intercambio de bytes 
So LD Ac 
50 LD (DEA 
INC HL 3 Apunta hacía los siguientes bytes 
1109 INC DE 
120 LD AL 3 HL es cero cuando toda la 
130 ero. 5 pantalla sea barrida 
140 JR NZ,BUCLE 
150 RET 


Ensámblalo y pruébalo con el siguiente programa BASIC, 


10 CALL 25000 

20 CLS : DRAW 100,100 : DRAW 100,200 : 
DRAW 0,300 

30 FOR 1=0 TO 200:NEXI 

40 CALL 25000 

50 GOTO 30 


o 
o 


Comentarios 


El intercambio de las dos pantallas ofrece un tipo de desvanecimiento 
como el que se obtiene con un proyector de diapositivas. El desvaneci- 
miento puede hacerse más lento si insertamos un bucle de retardo en el 
código máquina antes listado. El siguiente programa BASIC demuestra 
también el funcionamiento de la rutina en código máquina, suponiendo 
que ésta ya se encuentra en la dirección 25000, 


10 CLS 

20 FOR K=1 TO 20 

30 LOCATE 15,K:PRINT “! HOLA AQUI!“ 

40 NEXT 

50 CALL 25000 

$0 CLS ; DRAW 100,100 : DRAW 100,200 ; 
DRAW 0,300 

¡ 70 FOR 1=0 TO 300:NEXT5REM retardo 

! 80 CALL 25000 


0, $210.09 o 


90 GOTO 70 


0.9.0.6 0 


Sería interesante sacar un pleno rendimiento de esta rutina en tiempo 
real. Probablemente alguna vez hayas visto impresionantes dibujos en la 
pantalla de un ordenador. Lo normal es programar estos dibujos punto a 
punto, bien mediante funciones o bien asignando a cada punto de la 
pantalla un estado determinado. El tiempo de procesamiento de estos 
dibujos puede llegar a ser extremadamente largo, y su programa ocupa 
fácilmente la totalidad de la memoria. Existe un segundo método para 
dibujos artísticos o de precisión, que está muy alejado de todo lo referente 
a números y complicadas ecuaciones. En este caso, el usuario puede ver el 
dibujo según lo va imaginando y componiendo. Con este método, una 
especie de pluma puede ser desplazada a voluntad por la pantalla marcan- 
do las líneas o puntos que se deseen. Pueden ser incluidos comentarios o 
cadenas de caracteres en cualquier posición de la pantalla. Una vez finali- 
zado el trabajo, se puede recurrir a una rutina como PCANJE para 
almacenar en memoria el contenido de la pantalla. Seguidamente se puede 
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guardar el contenido del área de memoria de la segunda pantalla, en la 
unidad de almacenamiento (disco o cassette). Este es el tipo de dibujos que 
se pueden realizar con la siguiente rutina. 


ACCION 


Permite al usuario rellenar la pantalla a voluntad, tanto con texto 
como con gráficos. Se dispone de todos los colores que permita cada 
modo de pantalla. La velocidad de desplazamiento del cursor de gráficos 
puede ser determinada en el momento de acceder a la rutina. Es relocaliza- 
ble. La rutina está preparada para trabajar en el modo 1, pero es fácilmen- 
te alterable para utilizarla en los demás modos. 


Requisitos de entrada: Desde el BASIC, llamaremos a la rutina median- 
te CALL40000, vel; donde vel es la velocidad que 
se quiere dar al cursor de gráficos. El valor de 
vel se refiere al número de barridos de pantalla 
que se efectuarán entre cada desplazamiento del 
cursor, Como sabes, el ordenador envía informa- 
ción a la pantalla 50 veces por segundo. Así, un 
valor de vel=50 hará que transcurra un segun- 
do completo entre cada movimiento del cursor. 
Partiendo desde código máquina, IX apunta a 
un bloque de la memoria en donde está almace- 
mado un valor que representa al retardo. A=1. 


Condiciones de salida: El color será el último utilizado en la rutina. 
Todos los registros son alterados. 


Longitud: 418 bytes. 
105 2% ACCION ax 
9cso 20 oRS 10000. 
9040 FEO! 30 ce 4 
9c4z co 20 RETONZ 
9CA3 DD7E0O 50 LD ao 
CAS 328290 so Lo Ren, 
9049 EDCCOR 70 CALL ABC + Pbtíene las coordenadas 
80; del origen 
9CAC EDSSDDPD 90 LD (TEMPX),DE 5 de graficos, y las almacena 
905 220F9D 100 1D CTEMPY),H $ temporalmente 
CSS 110000 110 LD DEJO 
9ESé Z18FOL 120 LD HL)399 
905? CDC9BB 130 CALL áBBCO 5 Impone el nuevo origen de coord. 
9CSC EOL 130 Lo A 
9CSE CODEBR 150 CALL ABBDE 5 Fija la tinta de graficos 
9C6L 3E17 160 Lo a,25 5 Modo de graficos "XOR” 
9063 CDSABR 170 CALL MbBSA 
7ces 3E0L 100 Loma 
7068 CDSABB 190 CALL Mbs 
2céB 110000 200 LD DEsO 
FSE 210000 210 Lo Ho 
9C71 ES 220 PusH Ho 


9CAZ 


DS. 
CDEABB 


3AEZ9D. 
27 
CD198D 
10FB 
3E00 
CDIEBB 
2038 
3E02 
COIEBR 
2079 
3E01 
CD1EBB 
C24890. 
3E08 
CDIEBR 
C2669D 
SESA 
CD1EBR 
C2A99D. 
3822 
CDIEBB 
C2CD9D 
3ESE 
CDJEBR 
C2819D. 
3ES3 
CDIEBB: 
C29C9D 
CA7690 
153 
3E01 
CDIEBB 
Cacroc 
010200 
cs 
1812 
3508 
CO1EBR 
CADD9C 
OLFEFF 
es 
1808 
010000 
ES 
SEE 
COIEBR. 
C2F290 
cl 
DI 
El 
ES 
DS 
ES 
CDEABR 
5] 
DI 
El 
25 


230 
240 
250 
260 
270 
280 
290 
300. 
310 
320 


ñ 
TECLAS 


RETARD 


FEDOENFRRERERBZEREZRE 


DE 
MBBEA 


As (REM 
DA 

MEDI 
RETARDO: 
A,0 

ABRE 

AZ, ARRIBA. 
A 

WbBLE 

NZ) ABAJO: 
Al 

ABDIE 
NZ,DER 
a,8 

MBBIE 
NZ,1Z 
A,58 
MBBIE 
NZ¿ESCRBE 
a,34 
mbBiE 

AZ) ORIGEN 
Ay62 
ABBIE 

NZ¿ CCOLOR: 
A,57 
MBE 

NZ FINAL 
7, TECLAS 


At 
MBBIE 
2,U1 


ñ 
5 


Pri 
agas 


j Guarda la posicion del punto 
3 Imprime el punto-guia 
en el origen 


Comienza a explorar el teclado 
Tecla 0; desplazamiento 
5 hacia arriba 


3 Tecla 2, abajo 


y Tecla 1, derecha 


3 Tecla 8, izquierda 


j Tecla 59 (E), escribir 


Y Tecla 34, (0), origen 


5 Tecla 62, (C), cambio de color 


$ Tecla (F), final 


3 Comprueba sí es una diagonal 
Y a la derecha 


5 Comprueba sí es una diagonal 
3 ala izquierda 


3 El punto no se borra sí la 
3 barra esta pulsada 


5 Recupera las coordenadas 
del punto-guía 


Lo elimina de la pantalla 


3 Recupera Las coordenadas 


j Mctualsza la coordenada Y 
3 guardandola' despues 


y Actualiza y guarda la 


120 


930 PUSH DE + coordenada X 
940 CALL ABREA + Imprime el nuevo punto 


970 CALL ABRtE j Comprueba sí es diagonal 
980 Je AL Y hacia la derecha 


1030. CALL eBRIE j Comprueba sí es diagonal 
1040 EOMEZT ES 3 a la izquierda 


1080 A11 LD BCO Y No hay variacion horizontal 


1110 CALL OBDIE 5 El punto no se borra sí 
1120 JP NZ,AS 3 la barra esta pulsada 


BC 
DE 

1150 POr HL Y Recupera las coordenadas 
Ho 

1170 PUSH DE 5 y las guarda de nuevo 

1190 PUSH BC. 


1190. CALL ABBEA 3 Borra el punto de la pantalla 
1200 AS. POP BO 


1210, POP DE 
1220 PoR HL 5 Recupera los registros 
1230 DEC HL 

1240 DEC HL 5 Un punto hacía abajo 
1250. PUSH HL, Y Nueva coordenada Y 
1260 Lo HD 

1270 ED) Le 

1290 ADD ML, BC j Variación horizontal. 
1290 LO DM 

1300. LO EL 

1310 Por HL 

1320 PUSH HL 

1330 PUSH DE. Y Nueva coordenada X 


+ Comprueba sí se pulsa la barra 


3 Recupera las coordenadas 
del punto 
7 Lo elimina 


+ Ahora incrementa X en dos 


3 Imprime el nuevo punto 


la barra no esta pul: 
J se borra el punto anterior 


1630 
1640 
1650 
1660 
1670 
1600. 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830. 
1940 
1650 
1860 
1870 
1880. 
90n6 DI 1890. 
9DA7 El 1900 
3DAs co 1910 
ODA? CDOPBB 1920 
9DAC 38F» 1930 
9DAE CDIBER 1940 
9DB1 FEOD 1930 
7DB3 C2C0YD 1960 
70B6 Di 1970 
9DB7 El 1980 
9DB8 ES 1990 
9DB9 DS 2000 
90BA cDEABB 2010 
9DBD C3769T 2020 
9DCO COFCBB 2030 


9DCS Di 2040 
FDCA 0610 2050 
9DCó 13 2060 

2070 
9DC7  10FD 2080 
909 DS 2090 
FDCA C3AY9D Z100 
9DCD Di 2110 
9DCE El 2120 


9DCF 110000 2130 
9DDZ 210000 2140 
9005 ES 2150 
9DDé D3 2160 
9DD7 CDEABR 2170 
SDDA C3769 2180 


DDD 0000 2190 
SDDE 0000. 2200 
DEL OL 2210 
>DEZ 01 2220 
Comentarios 


CCOLOR 


ESCRBE 


PPUNT 


ORIGEN 


TEMPY 


A, (COLOR) 
15 

2, TOPE 

ES 


DE, (TEMPX) 
HL) (TEMPY 
DECO 


DE 
mo 
, 
apro 
C+ESCRBE 
ABRIO 
13 
NZ,PUNTO 
DE! 


mo 
13 

DE 
ABREN 
TECLAS 
MBBFC 
DE 


y So decrementa la coordenada X 


3 Se imprime el nuevo punto 


y Recupera la posicion; 


3 borra el punto y lo vuelve 
3 a imprimir en el nuevo color 


5 Si es la tinta 3, vuelve 
j_a comenzar por la 0 

En otro caso 

5 incrementa el numero de tinta 


3 Almacena el nuevo color 
1 Lo impone para graficos 


Y Devuelve el origen 
de coordenadas 
a su posicion inicial 


Regri BASIC 
+ Limpia el buffer del teclado 
Y Hay mas caracteres? 

3 Espera un caracter 
3 
i 


Si se trata de (ENTER), 
sale de este sub=modo, 


y recuperando la nueva 
3 powicion del punto-guia 


j Escribe el caracter 
$ Incrementa X el ancho de 
un caracter 


Y Lo guarda 


3 Pone a cero las coordenadas 


5 e imprime el punto en el origen 


La rutina no borra la pantalla al empezar; por lo que, si quieres hacer 
un dibujo que ocupe toda la pantalla, tendrás que borrarla antes de hacer 
la llamada, Una vez llamada, el cursor de gráficos aparece en la esquina 


121 


superior izquierda de la pantalla. Para desplazarlo, utiliza las teclas con 
“flechitas” que se usan normalmente para mover el cursor del texto. 
Cuando quieras trazar una línea, pulsa la barra espaciadora a la vez. El 
color se cambia pulsando la tecla “C”. Pulsando la tecla “O” el cursor 
vuelve al origen de la pantalla. Para insertar texto o caracteres sueltos, 
pulsa la tecla “E” seguida de la cadena que quieras insertar y finaliza la 
operación pulsando ENTER, La rutina terminará cuando pulses la letra 
“F”, En ese momento sería interesante que guardaras el contenido de la 
pantalla primero en una segunda pantalla y después en la unidad de 
almacenamiento. 


Como ya dije antes, la rutina aquí listada funcionará correctamente en 
el modo 1. Para poder utilizarla en los otros modos, tendrás que alterar la 
rutina de la siguiente forma: 

En las líneas 590, 650, 990, 1050, cambiar el 2 por un 4 para el modo 
0, y por un 1 para el modo 2. 

En las líneas 1470, 1480, 1630, 1640, introducir dos incrementos más 
de DE para el modo 0, o suprimir uno de los que hay, para el modo 2. 

Por último, la línea 2050 indica el ancho de los caracteres para cada 
modo; por tanto, para el modo 2 el registro B debe contener 8; en el 
modo 1, B=16, y en el modo 0 B=32. 

Puedes modificar la rutina de forma que admita trabajar con los 
diferentes modos de pantalla. Si quieres interaccionar esta rutina con 
SEGUNDAP, recuerda que debes relocalizarla en una dirección inferior 
a 26000. 


Rutinas de llenado 
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Recordarás cómo en el capítulo 3 listé una rutina que dibuja rectángu- 
los en la pantalla, con la opción de que estuvieran vacíos o rellenados. 
Hay una gran variedad de formas para que un área de la pantalla pueda 
ser rellenada con un color. Más adelante en esta sección veremos una 
rutina de propósito general para rellenar con líneas horizontales, la cual 
puede ser la base para las rutinas de llenado de propósito general. Sin 
embargo, antes de ver esto, puede ser interesante un breve estudio de las 
rutinas de llenado residentes en el sistema, y de las que podemos disponer. 

SCR FILL BOX, localizada en $:BC44, rellenará un área de pantalla 
con un color específico, Sin embargo, hay algunas limitaciones en la 
resolución del área rellenada, tales como que los límites se especifican en 
términos de espacios de caracteres. Para acceder a la rutina, A contiene el 
código del color, que puede ser obtenido del número de tinta normal 
mediante la rutina de la dirección £BC2C. Esto fue detallado en el 
capítulo 4. Los registros HL y DE especifican el área que tiene que 
rellenarse según la siguiente figura. 


SCR FLOOD BOX nos permite una mayor resolución, pero es un 
poco más difícil de utilizar. Se accede mediante una llamada a la dirección 
8:BC47 y rellenará el área especificada con el color de la tinta cuyo valor 
codificado está en el registro C. Los límites del área a rellenar están dados 
en términos de direcciones de la RAM de pantalla. Normalmente esto 
implica que haya que convertir la posición de un punto o de un carácter 
en una dirección de la memoria de pantalla. Existen rutinas en la ROM 
que nos permiten hacer esto tal y como vimos en el capítulo 4. Sin 
embargo, no entraré en más detalles por ahora. Es suficiente decir que el 
par HL contiene la dirección de la esquina superior izquierda del área que 
ha de rellenarse; el registro D contiene el ancho del área en bytes y el 
registro E contiene la altura del área expresada en líneas de pantalla. 

En todos los modos la pantalla tiene una altura de 200 líneas y un 
ancho de 80 bytes. Este hecho explica la presencia de los 16384 bytes de 
memoria de pantalla (80*200). En el modo 0, cada carácter tiene 4 bytes 
de ancho; en el modo 1, la anchura es de 2 bytes, y en el modo 2, cada 
carácter ocupa sólo el ancho de un byte. Con lo cual, para rellenar toda la 
pantalla con un color determinado, al cual suponemos almacenado en C, 
ejecutaremos una rutina en código máquina como la siguiente: 


LD HL,ACOOO ; Extremo superior izquierdo de la pantalla. 


LD D,80 
LD E,200 
CALL bcaz 


Sin embargo, todas estas rutinas son apenas inteligentes, ya que tene- 
mos que especificar los bordes del área a rellenar, pudiendo llegar a ser 
muy tedioso este trabajo. La complejidad puede ser elevada si lo que 
tratamos de rellenar son figuras no rectangulares. Necesitamos, pues, de 
una rutina que rellene un contorno dibujado con un determinado color, 
con la tinta del color que especifiquemos. Cada línea de pantalla con una 
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figura puede ser entonces rellenada. Después de examinar el código má- 
quina, veremos cómo puede emplearse para rellenar figuras tales como 
triángulos o círculos, 


LINLLENA (LiNea LLENA) 


Esta rutina llena una simple línea de pantalla entre dos puntos que 
actúan como “borde”. El color de la línea puede ser determinado por el 
usuario. El color de los dos puntos también es especificado por el usuario. 
Si deseas relocalizar la rutina, entonces es necesario alterar la dirección de 
“DERCHA”. Los bytes que se especifican en el listado son para la direc- 
ción 40200. 


Requisitos de entrada: Desde BASIC, usaremos CALL dirección,x,y, 
borde, color; donde x,y es la posición desde don- 
de comienza el rellenado; borde es el color de la 
tinta que marca el límite del rellenado; color es 
la tinta con la que queremos que se trace la 
línea. 

Partiendo desde código máquina, IX apunta ha- 
cia un bloque de parámetros como el de la figu- 
ra, registro A=4, 


Condiciones de salida: Si el número de parámetros es incorrecto, se 
producirá un retorno inmediato al BASIC. To- 
dos los registros son alterados. 


Longitud: 91 bytes. 

101 de LINLLENA 0 
3008 20 ORO 40200 
908 FEOS 30 ceo. 
9DOA co 40 RETONZ 
9DOB DD4E04 so LD L,CIXea) 
9DOE  DD6605 80 LD H,C(1x+S) 
DIA DOSEOS 70 LD Es (Ix+6» 


9D14  DDS607 EJ LD D,CIXez) 
9017 ES 90 PUSH ML, 
9018 DS 100 PUSH DE 
9019 ES 110 BUCLE PUSH HL Y Comienza a rastrear 
120 4 hacía la derecha 
9D1A Ds 130 PUSH DE 
9D1B- CDFOBB 140 CALL ABBFO + Conoce la tinta del punto 
ADIE DL 150. POP DE 
9DIF El 160 POP HL 
9020 DDBEOZ 170 ce (mz 1 Es el color del borde? 
9023 2808 180 JR 7,SALD 5 
9025 3E03 190 CS a 
9027 BA 200 ce D ; 
9028 2803 210 IR ZASALD 
9DZA 13 220 INC DE 3 Siguiente punto 
9DZB  18EC 230 JR. BUCLE 
9020 18 240 SALD DEC DE y Retrocede un punto 
9DZE EDII619D 250 LD” (DERCHA),DEj Guarda la posicion 
9D3Z Di 260 POP DE 
9D33 El 270 PoR HL 
9034 ES 290 BUCLEZ PUSH HL 5 Ahora rastrea hacía la izquierda 
9035 DS 290 PUSH DE 
9036 COFOBB 300 CALL ABBFO 3 Obtíene el color del punto 
9039 DL 310 POP DE 
9DJA El 320 POP HL 
9D3B DDBEOZ 330 CP CIxez) 3 Es el borde? 
9D3E 2807 340 IR Z,SALI 
9040 18 350 DEC DE y Siguiente punto 
9D41 78 360 LD AE 3 Si DE=0, entonces estanos fuera 
9042 B2 370 RD 3 de la pantalla 
9043 2802 380 IR Z,SALI 
9D43 1880 390 IR. BÚCLEZ 
9DA7 13 200 SALI INC DE + Siguiente punto 
9048 DDÉEO4 410 LD L,CIX+9) 3 Coordenada Y en HL 
9D4B DI 420 Lo Max 
9DE ES 430 PUSH Hi 5 La guarda 
9DAF CDCOBR=4%0 CALL éBBCO 
9DSZ DD7E00 450 LD A,CIX+O) 5 Extrae la tinta para el relleno 
9035 CDDEBB 460 CALL PBRDE j de la linea, y la activa como 
470 5 color de los graficos 
9038 El 380 Por HL 
9039 ED3B619D 390 LD DE, (DERCHA);5 Coordenada X en DE 
9D3D COFéBB 500 CALL ABBFO 3 Traza la línea 
9D6O C9 sio RETO; Terminado 
9D61 0000 520 DERCHA DEFW 00. 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 CLS:MOVE 100,0 

20 DRAW 100,600 

30 MOVE 200,0 

40 DRAW 200,600 

50 CALL 40200;150,200, 1,1 


Comentarios 
El método operativo de la rutina es muy sencillo, y se hace uso de las 


rutinas del firmware del Amstrad para permitir su utilización en todos los 
modos de pantalla. Primero busca hacia la derecha hasta que la coorde- 
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nada X sea mayor que 750 o hasta que se encuentre un punto con el color 
especificado como “borde”. En este último caso, la posición X es almace- 
nada en una variable de dos bytes llamada “DERCHA”. La rutina devol- 
verá la posición X a su valor inicial. La búsqueda comienza entonces hacia 
la izquierda, hasta que se encuentre un punto del borde o hasta que la 
coordenada X sea igual a O. La línea se rellenará con el color requerido 
mediante una llamada a la rutina que dibuja líneas. El color que fue 
seleccionado para el relleno será ahora el color de la pluma de gráficos. 


Por ahora ya podemos rellenar una línea de la pantalla. ¿Qué pasa con 
las figuras reales? Bien, eso es muy fácil. Elegimos una coordenada X que 
corresponda a la mayor coordenada Y, asociada a una figura determinada. 
Esto significa que la operación de rellenado de una figura compleja puede 
que se tenga que llevar a cabo en varios pasos. Para aclararlo todo, fíjate 
en los dos dibujos siguientes. 


1! t 
x x 


Circulo Triángulo 


El llenado se lleva a cabo con un bucle FOR...NEXT, que va variando 
la coordenada Y desde el valor más bajo, hasta su valor máximo. El 
siguiente programa en BASIC demuestra esta acción. Supongo que la 
rutina en código máquina ya está ensamblada en la dirección 40200: 


80 NEXT 


o¡ 10 MODE 1 :REM Fija el modo de pantalla lo 
1 20 PLOT 0,0,1:REM Se localiza en 0,0 | 
(9 30 REM Pluma 1 lo 
H 40 DRAW 100,100:DRAW 200,0:DRAW 0,0 i 
o! 50 REM Dibuja un triangulo La 
H 50 FOR Y=1 TO 99:REM Bucle la coord. Y H 
o! 70 CALL 40200,100,Y,1,2 lo 
j ! 


Esta rutina presenta algunos inconvenientes, pero aun así es bastante 
útil. El principal problema es la velocidad, por eso conviene usarla sólo 


para rellenar áreas o figuras pequeñas. También puede usarse en combina- 
ción con otras rutinas para rellenar el grueso de una figura, dejando las 
áreas secundarias a la anterior rutina. 


GPLUMA (PLUMA de Gráficos) 


Esta sencilla rutina especifica el color a usar para el papel y la pluma 
de gráficos. Es relocalizable. El papel de gráficos elegido sólo entrará en 
acción tras la ejecución de la orden CLG. ] 


Requisitos de entrada: Desde BASIC, usaremos CALL dirección, pluma, 
papel; siendo “pluma” el color de la tinta que 
debe usarse para la pluma de graficos, y “papel” 
es el color que se usará para el papel de gráficos. 
Partiendo del código máquina, IX apunta hacia 
un bloque de parámetros como el mostrado en la 
figura, A=2. 


Bloque de parámetros de GPLUMA 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 16 bytes. 

107 ee PLUMA 
2008 20 DñS” 40200 
3008. FEo2 30 ea y 5 no hay 2 parametros, 
3noa Eo 20 Ber Nz Praterno 
3D08- Do7E00 50 Ao 
3DOE CDcase 20 EaLL MOZA. y Cambia el papel de graficos 
SD1A DD7e0z 70 Aca 
Sola Conesa 90 CALL MBBDE >; Cambia la tinta de graficos 
0 > 50 ser 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 MODE 1 : PLOT 0,0,1 
20 DRAW 100,100 : CALL 40200,2,3 
30 DRAW 100,400 


Comentarios 


El color de la pluma de gráficos entra en acción inmediatamente y el 
papel lo hará después de la orden CLG. 

Vamos a ver ahora cómo mover imágenes a través de la pantalla, 
utilizando rutinas en código máquina. El resto de este capítulo estará 
dedicado al movimiento de caracteres a través de la pantalla y en el modo 
de pantalla que tú elijas. Haremos uso de las rutinas residentes en el 
firmware del Amstrad, para escribir caracteres en pantalla, ya que todavía 
pueden dar buenos resultados. Después de ver brevemente la técnica 
empleada, presentaré un programa que mueve un carácter por pantalla. 
Esto provee al Amstrad de un sencillo “seudo-duendecillo” (SPRITE de 
otros sistemas) para movimientos con gráficos, de propósito general. Ter- 
minaré el capítulo con un estudio de los caracteres multicolores, y de 
cómo pueden ser desplazados por la pantalla. 


Desplazando caracteres 
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Las principales operaciones que deben llevarse a cabo en los desplaza- 
mientos de caracteres a través de la pantalla, son las siguientes: 


1. El carácter debe desaparecer en la pantalla de la antigua posición. 

2. Las coordenadas X e Y del carácter deben ser actualizadas a la nueva 
posición. 

3, El carácter debe escribirse en la nueva posición. 


La suavidad del movimiento resultante depende de dos factores. El 
primero es la magnitud del incremento que damos a las coordenadas X e 
Y entre una posición y la posterior. El segundo factor es la frecuencia con 
que se altera la posición del carácter. Se pueden obtener movimientos 
delicados si el carácter se traslada uno o dos puntos de pantalla cada vez. 
En cambio, si la variación es de carácter a carácter, el movimiento parecerá 
brusco y sin continuidad. Igualmente, una rápida actualización de la 
posición del carácter nos ofrecerá suavidad en el desplazamiento. La tarea 
de eliminar el carácter de la posición anterior puede tener una solución 
sencilla si reescribimos un espacio en blanco en esa posición anterior. Sin 
embargo, esta acción puede causar problemas si el carácter se está despla- 
zando sobre un fondo que contiene otra imagen. Al escribir un espacio en 
blanco, desaparecerán tanto el carácter como el fondo. Por este motivo, no 
utilizaremos esta técnica. Un segundo método es manejar el modo XOR 
para los gráficos de pantalla. Sin entrar en detalles, esto causaría la 
desaparición de una imagen de la pantalla si volvemos a escribir por 
segunda vez la misma imagen y en el mismo sitio. A pesar de todo se 
presentan algunos inconvenientes. Aunque este método deja intacto el 


fondo de la pantalla, pueden producirse algunos cambios de color del 
fondo, mientras el carácter se mueva por esa zona. Sin embargo, probable- 
mente éste sea el método más sencillo para conseguir que las cosas 
funcionen aceptablemente. Claro está que siempre puedes volver a dibujar 
el fondo después de cada desplazamiento, pero esto haría que las cosas 
marcharan demasiado lentas. Por ello vamos a ver un programa que 
desplaza caracteres de un solo color, utilizando el modo XOR. 


" DESPCAR (DESPlaza CARácter) 


La rutina desplaza un determinado carácter definido por el usuario, o 
un carácter habitual, desde una posición de la pantalla a otra. El movi- 
miento es instantáneo. En el interior del programa se encuentra una tabla 
de información denominada Tabla de Figuras, que contiene la información 
de cada carácter que quieras desplazar durante el programa. La rutina se 
puede relocalizar, cuidando que la dirección de “TEMP” y de la Tabla de 
Figuras sea también alterada. 


Requisitos de entrada: Partiendo de un programa BASIC, usaremos 

CALL dirección, car, Xinc, Yinc; siendo “car” el 
número asignado al carácter dentro de la Tabla 
de Figuras. Este “car” se refiere al carácter que se 
quiere desplazar. Xinc es el incremento que se da 
a la coordenada X de la posición del carácter; 
Yinc es el incremento que deseamos darle a.la 
coordenada Y de la posición del carácter. Estos 
incrementos pueden ser tanto positivos como ne- 
gativos. El valor de “car” debe ser mayor que 0. 
Si accedemos desde código máquina, entonces 
A=3 y IX apuntando a un bloque de paráme- 
tros como el de la figura. También deberá estar 
presente, como pronto veremos, una Tabla de 
figuras. 


yinc 


Bloque de parámetros de DESPCAR 
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Condiciones de salida: 


Longitud: 


aso 
As1O 
A412 
As13 
ASE 
Aste 
ASC 
ASE 
420 
a422 
Aza 
A426 
A928 
ASZA 
A42E 
as31 
Asa 
A437 
asa 
As3a 
a83c 
AF 
442 
asas 
4447 
ASIA 
ASAD 
aaso* 
ASI 
452 
As5a 
A453 
Assé 
0437 
Assa 
A4SD 
ASE 
AASF 
a460 
Ase6Z 
As66 


967 
asc 
46 
as71 
as7a 
As75 


FE03 
co 
DDAG09 
DOES 
DDZ2191A4 
DD23 
DD23 
DD23 
DD23 
DD23 
DD23 
10F2 
DO228FA4 
DDSE0O 
DDSé01 
DDSEOZ 
DDS603 
ES 

DS 
EDCOBB: 
DD7EOS 
CDDEBB. 
3E01 
cos9eC 
DD7E04 
COFCBB. 
DI 

El 
DOE 
ES 

DS 

El 
DD4EOZ 


DI 
DOES 
DOZASFAS 
DD7300 


DD7201 
DDEL 
DDAEOO. 
DD4601 
EL 

09 
DOZABFAS. 
DD7502 


DD7403 
CDCOBB 
DD7EO4. 
COFCBR 
3E00 
Cos9aC 
c9 


m4 DESPCAR 4% 


ore 
Ed 
RET 
Lo 
PUSH 
LD 
INC 
INC 
INC: 
INC 
INC, 
INC 
DINZ 
LD 


2000 
3 
NZ 
B, (14) 


CTEMP) 1x5 
Es DO 
Dos 
ez 
NES) 
HL 

DE 

haeco 3 
Aa; 


1x, TEMP) 
OE 


(me ,D 
1 

Ls (1x0) 5 
BnD; 
HL 

HL, BC 

1, TEMP) 
CIzr AL 7 


CRD) A 
MBBCO 
PENA 
bare 


Todos los registros son alterados. El color de la 
pluma de gráficos será el del carácter dibujado. 
El modo de gráficos quedará en “absoluto” o 
“forzado”, y el cursor permanecerá en la última 
posición del carácter. 


127 bytes sin incluir la Tabla de Figuras. 


Comienzo de la Tabla de Figuras 
Obtiene la definicion 


Almacena la definicion 


Obtiene la coordenada X 
Obtiene la coordenada Y 


Se mueve a la posicion 
Impone el color 
Activa el modo de graficos XOR 


Imprime el caracter 


Recupera 1X 


Suma el incremento a la 
coordenada X 


La introduce en DE 


Lo almacena en el 
registro temporal 


Suma el incremento a la 
coordenada Y. 


y la almacena en el 
registro temporal 


Se mueve a la nueva posícion 
Imprime el caracter 


Impone el modo "absoluto" 
para los graficos. 
y finaliza 


AGBF 0000 600 TEMP DEFW 00 
A991 0000 610 TABLA DEFW 00 5 Tabla de Figuras 
A493 0000 620 DEFW 00 $ Esta es "postiza" 
A495 0000 630 DEFW 00 

997 6300 630 DEFW 100 

A499 6400 650 DEFU 100 

A99B ER pe DEFB 234 

AG9C 01 670 DEFB 1 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


7 
7 
o; 10 MODE 1 jo 
h 20 J=1 ' 
o 30 MOVE 100,100 io 
h 40 PRINT CHR$(23)+CHR$ (1) h 
o! 50 TAG ¿ PRINT CHR$(234)5 : TABOFF 1d 
j 60 FOR I=1 TO 300 H 
o H 70 CALL 42000,1,J,0 : NEXT ¡ 
¿ po 
Comentarios 


El programa está asistido por la presencia de la Tabla de Figuras, la 
cual contiene toda la información del carácter que el programador va a 
desplazar mediante esta rutina. Esta Tabla tine una entrada de 6 bytes 
para cada carácter, y la llamada con CALL a esta rutina especificará con 
el parámetro “car” la entrada de la Tabla de Figuras, que contiene los 
detalles del carácter a trasladar. Uno de estos datos de la entrada es el 
código ASCII del propio carácter. Una típica entrada de la Tabla es la del 
programa antes listado. En la siguiente figura se muestra un examen más 
detallado de lo que contiene una de las entradas de la Tabla: 


fin de la entrada 
entrada 1 


(TABLA +6) 


Entrada de la Tabla de Figuras: DESPCAR 


Antes de acceder a cualquiera de las rutinas en código máquina tendre- 
mos que preparar la entrada de cada carácter. La introducción de los 
valores apropiados en la Tabla de Figuras se efectuará con la orden 
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POKE en la dirección adecuada. Recuerda que los seis primeros bytes de 
la Tabla, que corresponden a la entrada 0, estarán en blanco. La Tabla 
contiene las posiciones X e Y iniciales del carácter, el código ASCII del 
carácter y el color con el que será escrito en pantalla. Los bytes que 
representan a X e Y serán actualizados cada vez que se cambie la posición 
del carácter. Esta forma de almacenar la información de los caracteres a 


trasladar, hace que esta rutina sea de la mayor utilidad general posible. 

El programa utiliza el modo XOR para eliminar el carácter de su sitio 
y redibujarlo en otro. La última posición es adquirida añadiendo el 
incremento de X (Xinc) a la actual coordenada X y añadiendo, por otra 
parte, el incremento Y (Yinc) al valor actual de la coordenada Y. Esta 
posición actualizada se almacena entonces en la Tabla de Figuras. La 
rutina trabaja perfectamente durante todo el tiempo, excepto con la prime- 
ra aparición del carácter sobre la pantalla, ya que justo en la primera 
posición ocupada por el carácter quedará una sombra del mismo. Si 
piensas un poco, descubrirás la respuesta a este problema. 

Cuando comienza a ejecutarse la rutina, primero hace desaparecer el 
carácter de la última posición, mediante el modo XOR, y después actuali- 
za la posición. Sin embargo, si no había nada que eliminar en aquella 
posición, en la pantalla quedará abandonada la imagen del carácter. 
Todas las restantes operaciones funcionarán perfectamente; pero no este 
primer detalle. Podemos solucionarlo si utilizamos una línea de BASIC 
como la de abajo, para posicionar inicialmente a cada carácter, justo en el 
lugar que le corresponde al principio. 


PLOT 1000, 1000, 1:TAG:PRINT CHR$(23)+ 
CHR$(1)5:MOVE inicioX,inicioY 
PRINT CHR$(caracter)3:TAGOFF 


La sentencia PLOT 1000,1000,1 impone que el color de la pluma de 
gráficos sea 1, y CHR$(23) seguido de CHRS(1) activa el modo de gráficos 
XOR. Si tenías 100,100 en la Tabla de Figuras como punto de partida 
para un carácter dado, 1 como su color y 254 como código ASCII del 
carácter, entonces la línea en BASIC anterior tomará la forma: 


PLOT 1000, 1000, 1:PRINT CHR$(23)+CHR$(1)5: TAG: 
MOVE 100, 100:PRINT CHR$(254)5:TAGOFF 


El siguiente programa de demostración funcionará siempre que el 
código máquina de la rutina, incluyendo la Tabla de Figuras, se encuentre 
en la dirección 42000. 


10 MODE 1 : PRINT CHRS$(23)+CHR$(1)3 

20 PLOT 1000,1000,1:TAG 

30 MOVE 100, 100:PRINT CHR$(234) 3: TAGOFF" 
40 Yinc=1 : Xinc=1 


50 FOR i=1 TO SO:NEXT:REM retardo 
60 CALL 42000,1,Xinc,Yine 
70 GOTO 50 


Si deseas volver a ejecutar este programa, entonces tendrás que restau- 
rar las coordenadas actuales X e Y de la Tabla a sus valores iniciales, ya 
que durante la ejecución del programa ambas coordenadas han sido 
modificadas. Para volver a inicializar la Tabla, utiliza la orden POKE. 

Mientras utilizas esta rutina pueden suceder dos cosas: la primera es 
que, si intentaras mover el carácter demasiado rápido, éste parecerá que se 
bambolea, que tiembla, Esto se debe a la interacción entre la frecuencia del 
movimiento y la velocidad con que la imagen de la pantalla es renovada 
por el ordenador. La solución es sencilla; reduce la velocidad mediante un 
bucle de retardo en BASIC o código máquina, o bien mediante una orden 
CALL «bBD19, que esperará hasta que se produzca un nuevo barrido de 
la pantalla, antes de proseguir con el programa. La segunda cuestión es 
que valores pequeños de Xinc y de Yinc ofrecerán un movimiento suave, 
pero también lento. Finalmente, una alteración del color en el que se 
dibuja el carácter, después de que éste haya comenzado su movimiento, 
puede provocar algunos efectos secundarios debido a la combinación del 
modo XOR con diferentes colores, 

Antes de terminar con esta rutina, veamos más detenidamente la 
estructura de la Tabla de Figuras. Como ya dije, cada entrada tiene una 
longitud de 6 bytes; los 6 primeros bytes de la Tabla deben estar puestos a 
cero. Llamaremos entrada 0 a estos 6 primeros bytes; la segunda entrada 
será la entrada 1, y así sucesivamente. El parámetro “car” de la sentencia 
CALL es utilizado para indicar cuál de las entradas de la Tabla de 
Figuras es la que deseas usar. Supongamos que queremos que la entrada 1 
corresponda al carácter 254 en el color 1 y con posición inicial en el punto 
200,200 de la pantalla. La entrada comenzará en. la dirección (TABLA +6), 
donde TABLA es la dirección inicial de la Tabla de Figuras dentro de la 
memoria. La entrada completa así determinada sería: 


Tabla + 6 —»-| 200 


Por ello, cuando queramos poner este carácter en la pantalla por 
primera vez, usaremos una sentencia BASIC que escriba CHR$(254) en la 
posición 200,200 con la pluma 1 de gráficos. 
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En la Tabla de Figuras pueden introducirse numerosas entradas; puede 
escribirse una subrutina que se encargue de mover todos los caracteres a 
la vez. Por ejemplo, podríamos usar: 


100 REM Rutina de movimiento de 
caracteres 
110 numero=6 :REM 6 caracteres definidos 
por el usuario. 
120 FOR car=1 TO numero 
130 CALL 42000,car,Xinc,Yine 
140 NEXT car:RETURN 


0.0.0 O 
0.0,_,0,0 


Utilizando esto en combinación con la sentencia EVERY del BASIC 

podemos conseguir que el movimiento de los caracteres a través de la 
pantalla se produzca a intervalos determinados. Los diferentes valores de 
Xinc y de Yine son alterados mientras tanto en el núcleo principal del 
programa. 
Los efectos de Xinc y de Yinc son inmediatos. Los valores positivos de 
Xinc provocan un desplazamiento hacia la derecha, mientras que los 
valores negativos de Xinc provocan un movimiento hacia la izquierda. Por 
otra parte los valores positivos de Yine causan un desplazamiento hacia 
arriba por la pantalla, mientras que los Yinc negativos provocarán que el 
movimiento sca hacia abajo. 

Veamos ahora una rutina similar, para trasladar caracteres de dos 
colores. Todos los principios que vamos a discutir son también aplicables 
a caracteres que tengan más de dos colores. El primer asunto a tratar aquí 
es cómo podemos dibujar en pantalla caracteres que tengan más de un 
color. Esto también puede serte útil en otras rutinas. 


Caracteres multicolores 
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La solución se presenta en el uso del modo de gráficos XOR. Imagina 
que queremos construir un carácter de dos colores como el de la siguiente 
figura: 


Típico carácter de dos colores 


Dos de los cuadrados están a un color y los dos restantes están en 
otro color. Desde el BASIC un carácter así puede dibujarse en pantalla 
utilizando, como enseguida veremos, la orden TAG. Lo primero es definir 
un carácter de usuario para cada uno de los colores de fondo que posee la 
composición final. Así, para un carácter de dos colores tendremos que 
definir dos caracteres definibles por el usuario. Observa que no debe 
haber áreas solapadas. Si esto ocurre cuando estamos usando el modo 
XOR, entonces pueden aparecer algunos efectos secundarios de color. En 
el ejemplo del carácter arriba definido debemos definir dos caracteres 
como éstos: 


p< 


papel 


Afortunadamente, éstos están disponibles entre las definiciones de ca- 
racteres del Amstrad, como CHR$(134) Y CHRS(137). Todo lo que hace- 
mos ahora es utilizar TAG para escribir el carácter en las mismas coorde- 
nadas gráficas para ambos componentes. Con esto se superpondrán las 
dos imágenes. Si dibujamos cada uno de ellos de un color diferente, 
entonces obtendremos nuestro carácter bicolor. Esto es lo que efectúa el 
siguiente programa en BASIC, 


rl H 
Su 10 MODE 1 5) 
H 20 GOSUB 100 H 
o; 30 FOR I=0 TO 300 2 NEXT o) 
H 40 GOSUB 100 ; 
> 50 GOTO 30 Lo 
Ml 100 REM Subrutina que imprime el carac. ; 

o! 110 TAG E 
h 120 PLOT 1000,1000,1 : REM color del 1 
H primer caracter. Í 
o; 130 MOVE 100,100 : REM Se localiza. ¡Oo 
H 140 PRINT CHR$(134)5:REM Lo escribe. 4 
O; 150 TAGOFF:PRINT CHR$ (23) +CHR$(1)5: REM iS Oo 
: Fija el modo XOR de pantalla. j 
Cl 160 TAG to 
| 170 PLOT 1000,1000,2 : REM color del H 
Ll segundo caracter. h 
j 180 MOVE 100,100 : REM Se localiza. Ko) 
H 190 PRINT CHR$(137)5:REM Lo escribe. h 
o! 200 RETURN o 
L ll 


136 


Ejecuta el programa y verás que la figura de dos colores se dibuja y 
elimina repetidamente. Tal vez te gustaría experimentar con otros caracte- 
res. Si estás interesado en juegos, los siguientes dos caracteres pueden serte 
de interés, 


| 
CHRS$(134) E CHRS(137) * 


Tinta (HE | Papel 


El cuerpo de esta bestia puede ser dibujado de amarillo y los ojos en 
rojo. Recuerda otra vez que no debería haber solapamientos, Si los hay, 
pueden obtenerse algunos efectos interesantes con el color y tal vez estés 
interesado en conseguir algunos de estos efectos. 

Veremos ahora un programa que nos permite desplazar caracteres de 
dos o más colores a través de la pantalla. Aunque la rutina venga prepara- 
da para caracteres de dos colores, los Comentarios que vienen a continuación 
te permitirán modificar el programa si así lo deseas. 

DESPCAR2, que es como llamé al programa en un derroche de 
imaginación, es muy similar a DESPCAR, tal y como mostrará un estudio 
del listado. La diferencia comienza en la Tabla de Figuras, donde ahora 
hay un color y un carácter para cada una de las “máscaras” que compo- 
nen el carácter completo. Así, una rutina bicolor tendrá dos entradas para 
color y carácter; una para cada una de las partes de la imagen global. Por 
ello, para un carácter de dos colores, la Tabla de Figuras presentará para 
cada una de las entradas una disposición así: 


ENTRADA 2 


ENTRADA 1 


ENTRADA 0 
Entrada de la Tabla de Figuras para dos colores 


Dentro del propio programa, la principal diferencia es la presencia de 
una segunda rutina para escribir un carácter tanto en la etapa de elimina- 
ción como en la de redibujar el carácter, que se usa con el segundo 
carácter coloreado. Obviamente, para un carácter con un tercer color, 
tendrá que haber una tercera operación de eliminado y redibujado que se 
encargue de este tercer carácter. Además, una rutina que desplace caracte- 
res de tres colores necesitará dos bytes extra en la entrada de la Tabla de 
Figuras para definir este tercer carácter y su color. 


DESPCAR2 (DESPlaza CARacteres a 2 colores) 


Esta rutina es utilizada para trasladar por pantalla caracteres bicolores 
en cualquiera de los modos de pantalla. Consulta los comentarios poste-= 
riores para los detalles de manejo. 


Requisitos de entrada: Desde BASIC usaremos CALL dirección, car, 
Xinc, Yinc; donde car, Xinc y Yinc tienen el 
mismo significado que en DESPCAR. 
Partiendo de otras rutinas en código máquina, 
A=3 y IX contiene la dirección de un bloque de 
parámetros con estructura idéntica a la utilizada 
para DESPCAR. 


Condiciones de salida: Todos los registros son alterados. El color de la 
pluma de gráficos será el último que se utilizó 
para dibujar el carácter. El modo de gráficos será 
el “absoluto” o “forzado” y el cursor de gráficos 
se encontrará en la posición a donde fue trasla- 
dado el carácter. 


Longitud: 179 bytes, sin incluir la Tabla de Figuras. 
107 me DESPCORZ ar 

anto 2 dh a2000 

AMO reos 30 E 

AmiZ co pe Ser Na 

RAIZ Dbacos 0 as 

AMÉ DoES 2 Bueu Tx 

AMS Dozicia 70 LD" Jé,ramLo y Comienzo de la Tabla de Figuras 

AsIE 0025 30 mucte hc IX ama aardstipliaen 

AMlE 0023 ES He 

BAZO D02S 100 ES 

2422 0023 19 HA 

A4ZA DDZS 120 EAS 

Aszo 0023 1 RS E 

Pazo Dozs E] ES 

A4ZA 0023 150 mo 

Maze ost Er BONZ BúcLe 

AAZE DDzzorAs 130 LO'* TrENDD, 1x0 Almacena 1a definición 

A4Z Daseoo lao PEA 

AA3S DDSeor 190 LD BIÍD10 y Obtiene la coordenada X 

Raso DuoEoZ 200 LO LSCxez) 5 Obtiene la coordenada Y 

A43O DDesos 210 ines 


AGE ES 220 PUSH HL 


137 


138 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
390 
390 
200 
410 
420 
430 
450 
450 
AGE DDIEOZ 460 
M871 DDS603 470 
As7a 09 280 
A675 ES 490 
Aa7é Di 500 
2677 DOES 510 
A879 DDZABFAS 520 
47D DD7300 530 
540 + 
AS8O DD7201 550 
A983 DDE1 560 
A483 DDSE0O 570 
AS88 DDAG01 380 
AsaB El 590 
As8C 09 £00 
AED DDZABFAS 610 
A491 DD7S02 620 
630 5 
A494 DD7403 640 
2497 ES 650 
As98 DS 660 
A499 CDCOBB 670 
A49C DD7EOS 680 
A49F CDDEBB 690 
A4AZ DD7EO4 700 
ASAS COFCBB 710 


TEnP 
TABLA 


wBECO 
Y, DA 
mbroe 
aL 
mbCs9 + 
A, (1) 
ABBFC 

A, (M7) 
MbeDE 

DE 

Ho 

on 

DE 

ERCO 

A, (1xr6) 
wierO 

DE 

mo 

1% 

"e 

DE 

Ho 

Es nz) 
Be 
HL, BC 
Ho 


DE 
1x 


1%, TEMP) 


(O, E 


(mo, 
1x 

£, (10) 
MITOS 
HL 

HL, Be 


1% CTEMP) 


az), 


(1x3, 4 
mo 

DE 

MBBCO 

A, (IX 
MBBDE 

A, (1X+4) 
MBBFC 

DE 

Ho 

"esco 

As UT 
MBRDE 


7 


3 


Se mueve a la posicion 
Impone el primer color 
Activa el modo de graficos XOR 


Imprime el primer caracter 


Obtiene el segundo color 


Se posiciona otra ver 


Imprime el segundo caracter 


Recupera 1% 


Suma el incremento a la 
coordenada X 


La introduce en DE 


Lo almacena en el 
registro temporal 


Suma el incremento a la 
coordenada Y. 


y la almacena en el 
registro temporal 


Se mueve a la nueva posicion 
Primer color 


Imprime el primer caracter 


Segundo color 
Imprime el segundo caracter 


Impone el modo "absoluto" 
para los graficos... 
y finaliza 


Tabla de Figuras 
Esta es "postiza" 
(Se puede cambiar) 


Primer caracter 
Color del primer caracter 
Segundo caracter 

Color del segundo caracter 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


10 MODE 1 
20 CLS 

30 J=1 

40 PLOT 1000,1000,1 : MOVE 100,100 
50 PRINT CHR$ (23) +CHR$ (1)5 

$0 TAG : PRINT CHR$(134)5 

70 PLOT 100,100,2 : PRINT CHR$(137)5 
80 TABOFF 

90 FOR I=1 TO 300 : CALL 92000,1,J,0 
100 CALL KBDIS 

H 110 NEXI 


Os 01:07 "62 O 


0.0 0.0:9 


Comentarios 


Con cuidado, la rutina puede ser relocalizable. Será necesario alterar la 
dirección dada por los bytes del programa, los cuales están preparados 
para funcionar en la dirección 42000. Para la Tabla de Figuras y la 
variable TEMP ocurre lo mismo. Al igual que con DESPCAR, todo 
carácter tiene que ser colocado en la posición de comienzo para su 
primera aparición en pantalla. Mediante el uso de TAG desde el BASIC, 
podemos evitar que aparezca abandonada la “sombra” del carácter desde 
el momento en que éste varía su posición respecto a la inicial. También 
necesitaremos cargar de información la Tabla de Figuras para cada entra- 
da, mediante la orden POKE. El siguiente programa BÁSIC también 
demuestra el funcionamiento del código máquina de DESPCAR2. Supon- 
go que el código máquina ya está almacenado en la dirección 42000 y que 
la misma Tabla de Figuras dada en el listado de la rutina ya ha sido 
incluida. Advierte que, al igual que en DESPCAR, la primera entrada de 
la Tabla de Figuras, entrada 0, tiene todos sus bytes puestos a cero. 


30 Xinc=1 

40 PLOT 1000,1000,1 + REM color del 
primer caracter. 

50 PRINT CHR$ (23)+CHR$(1)5:REM Fija el 
modo XOR de pantalla. 

60 MOVE 100,100 : REM Se localiza. 

70 TAG:PRINT CHR$(134)5: REM escribe el 
primer caracter. 

80 PLOT 1000,1000,2 : REM color del 
segundo caracter. 

90 MOVE 100,100 : REM Se localiza. 


140 


100 PRINT CHR$(137)5:REM escribe el 
segundo caracter. 

110 TAGOFF 

120 FOR I=0 TO 300 

130 CALL 42000,1,Xinc,Yinc 

140 FOR J=0 TO 20 

150 NEXT J : REM Retardo. 

160 NEXT 1 

170 END 


O) 


Si deseas volver a ejecutar esta rutina, tendrás que introducir otra vez 
los valores iniciales en la Tabla de Figuras. De hecho, se puede escribir un 
sencillo programa en código máquina que tome como parámetros los 
diferentes trozos de información necesarios para la Tabla de Figuras y los 
almacene en el lugar correcto. Te dejo a ti esta tarea de escritura. 

El bucle de retardo de las líneas 140-150 del anterior programa puede 
requerir una alteración dependiendo del resto del programa y del tiempo 
que le lleve desplazar un número variable de caracteres. Cuantas más 
rutinas de escritura de caracteres haya, el tiempo que lleva desplazar 
caracteres multicolores será mayor que el trabajo de mover caracteres de 
un único color. 

Fijémonos en la siguiente subrutina, que es un ejemplo de subrutina 
en BASIC para actualizar una entrada de la Tabla de Figuras del progra- 
ma DESPCAR2. Se supone que la variable “tabla” contiene la dirección 
del primer byte de la Tabla de Figuras. 


1000 entrada=tabla+(n*8) 

1010 REM n=numero de entrada 

1020 POKE entrada, 100:REM coordenada X 

1030 POKE (entrada+1),0 

1040 POKE (entrada+*2),100 1 REM 
coordenada Y 

1050 POKE (entrada+3),0 

1060 POKE (entrada+4),134 : REM primer 
caracter 

1070 FOKE (entrada+5),1 : REM primer 
color 

1080 POKE (entradató),137 : REM segundo 
caracter 

1090 POKE (entrada+7),2 : REM segundo 
color 


90707 0,9505 ¿05 10 
50.05 040 0.0 


Tanto en DESPCAR como en DESPCAR), sólo es necesario escribir 
el carácter en la posición inicial cuando éste vaya a aparecer por primera 
vez en la pantalla. Después de esto, para trasladar el carácter a una 


Operaciones 
de teclado 


En el “Locomotive BASIC” contamos, afortunadamente, con una muy 
sofisticada gama de órdenes que nos permiten realizar cosas como deter- 
minar el intervalo de repetición de las teclas pulsadas, cambiar el carácter 
asignado a las teclas, etc. Además, tenemos la orden KEY que nos permite 
ligar cadenas de caracteres a teclas determinadas. Y, cómo no, contamos 
con órdenes tan útiles como INPUT, INKEY e INKEYS. Sin embargo, 
para rutinas en código máquina, lo que nos interesa normalmente es saber 
si una tecla ha sido pulsada; esto es extremadamente fácil desde nuestros 
propios programas, ya que disponemos de las excelentes facilidades del 
firmware. En este capítulo te proporcionaré una variedad de rutinas que 
podrás usar en programas tanto en código máquina como en BASIC. Así 
que sin más rodeos vamos allá. 


NORESET 


Esta rutina altera el comportamiento del ordenador frente a la secuen- 
cia de teclas SHIFT-CTRL-ESC, En vez de inicializar el ordenador total- 
mente, se ignora por completo durante la ejecución del programa y sólo 
genera el mensaje break volviendo al modo interactivo. Análogamente, 
ESC queda completamente inhibido en la ejecución de un programa. 
Incluso proporciona un mayor grado de protección en la ejecución de un 
programa. La rutina es relocalizable. 
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Requisitos de entrada: Desde BASIC, CALL dirección, donde n=0 
inhibe la inicialización del aparato y n=1 provo- 
ca que SHIFT-CTRL-ESC generen una iniciali- 
zación completa. 

Desde código máquina, IX apunta a un solo byte 
que contiene “n” y A=1. 


Condiciones de salida: AF alterado. 


Longitud: 22 bytes. 
10 5 ae NORESET «e 

2008 20 20200 

3008 FEo1 So 1 

3noa Co 2 Rer 

3005 D7e0o  S0 LO Aye 

noe Peso ES e 

Dio 2808 7 SA 2 amuros 

Die Ses ÉS Do os 

PDiA sacESO O AS 

017 07 100 Fer 

3Di8 Stcr 110 inn LD. ajzo1 

SDiA 3aecoD 120 Lo men, 

ES Fes Fer 


Pruébalo con esto: 


CALL 40200, 1 
FOR J=1 TO 3000:NEXT 
CALL 40200,0 


Comentarios 


Esta rutina, como ya he dicho, inhibe totalmente a ESC durante la 
ejecución de un programa, por lo que si realizas una orden 


CALL 40200,0 


y luego pasas a un bucle continuo... ¡lo llevas claro! Esta línea sólo se 
ejecutaría si tuvieras un programa trabajando. Funciona alterando el 
primer byte de una de las entradas del bloque de saltos para interpretar el 
código como una instrucción RET. Cuando se accede al bloque de saltos 
después de introducir cualquiera de las secuencias de teclas anteriores, se 
realiza un regreso inmediato. Para restablecer el comportamiento normal, 
el byte antiguo, que es 195, se repone como primer byte en la entrada del 
bloque de saltos. 


GET 


La mayoría de los ordenadores cuentan con una función llamada GET, 
cuyo papel es conseguir que la ejecución del programa cese hasta que se 


pulse una tecla, La función devuelve como resultado el código ASCII de la 
tecla que ha sido pulsada. Así 


G=GET 


devolverá el código ASCII en la variable G. El BASIC del Amstrad no 
dispone de esta función, y normalmente podemos simularla utilizando un 
par de líneas de BASIC tales como: 


10 GS=INKEYS: IF 6$="" THEN GOTO 10 
20 G=ASC(6$) 


30 RETURN 


He aquí una rutina en código máquina que realiza la función GET sin 
necesidad de las líneas de BASIC anteriores. 


Requisitos de entrada: Desde BASIC CALLdirecciónaG%, donde G%, 
es una variable previamente definida en donde se 
introducirá el código ASCH de la tecla pulsada. 
Desde código máquina, es mejor llamar directa- 
mente a la rutina del firmware. 


Condiciones de salida: AF, HL son alterados. 


Longitud: 18 bytes. 
105 +2 GET e. 

3008 20 ORG 80200 

$008 FEOL 30 ceo 

5m0a co 20 RETONZ j Retorno en caso de haber un numero 
30 + erroneo de parametros 

9DoB DD6EOO 50 La 

SDOE DD660! 70 LD H¿(1x*1) 5 Obtiene la direccion de CARK 

9011 CD188B so CALL abs1O 

9D1A 77 90 NES 

9D1S AF 100 x0R A Y Pone el registro Aa cero 

9D1é 23 110 100 Ho 

9D17 3600 120 Lo (mo, O 

9019 29 130 REI 


Pruébalo con esto: 


10 car%=0 

20 CALL 40200,tcarz 
30 PRINT carZ 

40 GOTO 20 
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Comentarios 


La variable usada para contener el código ASCII devuelto debe haber 
sido inicializada previamente de algún modo, como se hace normalmente 
con las variables prefijadas cont, incluso si le has dado el valor cero. Con 
respecto a la rutina del firmware, el código ASCII se devuelve en el 
registro A con el flag C puesto a 1 

El programador en código máquina dispone de otras rutinas de teclado, 
pero no requieren inicialización, por lo que puedes llamarlas directamente 
desde tus rutinas en código máquina. No ofrecen nuevas ventajas al 
programador de BASIC. 


LECTURA DE TECLAS 


Esta rutina, accesible llamando a £BB1B, devuelve un código si está 
pulsada una tecla en el mismo instante en que se llama a la rutina. No 
esperará a que se pulse una tecla. Es por esto más útil en programas de 
juegos donde no se requieren pausas. Si una tecla estaba pulsada, al volver 
de la rutina el indicador C estará puesto a 1 y A contendrá el código de la 
tecla. De otro modo C estará puesto a 0. 


CHEQUEO DE TECLA 


Esto tiene algún parecido con la función BASIC INKEY(n), ya que 
examina si una cierta tecla fue pulsada en el mismo instante en que la 
rutina fue llamada. A la salida, Z=0 si la tecla se pulsó, y Z=1 si la tecla 
en cuestión no se pulsó. La rutina está localizada en la dirección £¿BB1E, 
conteniendo el registro A el número de la tecla a examinar. 

Puede ser útil a veces, al programar, para obtener información sobre la 
situación actual de las teclas SHIFT, CTRL, CAPS LOCK y SHIFT 
LOCK. Esto te permite detectar secuencias de teclas superfluas, como 
SHIFT-CTRL-ENTER, si fueses propenso a ello. La rutina se llama 
ESTADO. 


ESTADO 


Devuelve el estado actual de las teclas Shift, CTRL, Shift Lock y Caps 
Lock. La rutina es relocalizable. 


Requisitos de entrada: Desde BASIC, CALL dirección,aestado%. 
Desde código máquina, IX apunta a un bloque 
de parámetros con A=1. El bloque de paráme- 
tros es un bloque de 2 bytes que contiene (prime- 


ro el byte bajo) la dirección de la posición donde 
quieras almacenar el byte de estado. 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 31 bytes. 

an ESTADO +0 
anos Sho 4ozoo 
5008 Feo ea 
200a co ReroNz 


2DOB— DDEEOO 
9DOE DDSGO1 


LDL, (10 
LO HCIxeL) 


9011 ES FusH HL 
9012 CDIEBB CALL ABBIE + de SHIFT/CTRL 
9015 05 PUSH BC 
9DIA COZIBR CALL MBR21 5 el estado de CAPS/LOCK 
9D19 7D LD AL 
9DIA ESgo AND 128 5 el estado de CAPS/LOCK 
9D1C 6F LD LA; con 128, 
lo el resultado 

TS Lo AH; el estado de SMIFT/CTRL 
DIE EOL ANDA 3 con L, 

sumando el resultado a L 
9D20 83 ADD A, L >; para obtener el valor 

de la comparacion 
921 CA POP BC; Recupera BC 
9022 El POR HL 
9D23 71 LD «WL),C5 Guarda los estados obtenidos 
9D24 23 INC HL” 5 en la variable ESTADOZ 
9025 77 LD o 
9DZ26 9 RET 


Ensámblalo y pruébalo con el siguiente programa BASIC. 


7 T 
o; 10 estado%=0 ¡o 
H 20 CALL 40200, testado% i 
o! 30 PRINT HEX$ (estado%) vo 
H 40 INPUT As h 
o! 50 GUIO 20 lo 

Comentarios 


El valor almacenado en la posición para el byte de estado o el valor 
devuelto al BASIC en la variable estado, deberá ser decodificado para 
conocer el estado de las diferentes teclas. Es mejor considerarlo bajo un 
formato hexadecimal de 4 dígitos, que puedes obtener en BASIC usando 


estado%=0:CALL 40200, BestadoZ 
estado$=HEX$ (estado%):FRINT estados 
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El estado puede ser interpretado mediante la siguiente tabla: 


CAPS LOCK SHIFT LOCK SHIFT cTaL—] 
ON 8,0100 88000 8.0020 8.0080 
OFF 80000 8.0000 8.0000 80000 


Un par de ejemplos para aclarar el uso de esta tabla. Si la tecla SHIFT 
LOCK estuviera pulsada y CTRL también, al mismo tiempo, el valor del 
estado sería: 


£BODO+LO08O 
=t8080 


Análogamente, si un valor de £AO fuera devuelto, un examen de la 
tabla revelaría que para obtener este valor a partir de los datos en la 
tabla, se requeriría la pulsación simultánea de las teclas SHIFT y CTRL 
(£:20+ £:80). La rutina devuelve el estado de LOCK que estaba presente 
desde la última vez en que el ordenador estuvo esperando algún tipo de 
entrada. 

Probablemente habrás advertido programando tu Amstrad que las te- 
clas pulsadas durante largos bucles de programas son almacenadas en el 
buffer del teclado y aparecen con la siguiente sentencia INPUT o INKEY 
una vez finalizado el bucle. Compruébalo con esto. Una vez que hayas 
pulsado “ENTER” pulsa una secuencia cualquiera de las teclas y fijate 
cómo aparecen en el momento en que el programa llega a INPUT. 


FOR 1=0 TO 3000:NEXT: INPUT as 


Esto puede dar lugar a confusiones si no lo tienes en cuenta, y si el 
programa está esperando a que pulses una tecla antes de continuar, estas 
pulsaciones de tecla almacenadas pueden provocar el que el programa 
continúe sin esperar más. Muchos aparatos tienen un método mediante el 
cual tales caracteres pueden ser retirados de la memoria del teclado; este 
proceso se llama “despejar el buffer del teclado”. Retirará todos los códigos 
de teclas almacenadas en ese momento, y así, si se usa inmediatamente 
antes de una orden del tipo “GET”, asegura que el ordenador no fracase 
en su tarea por descuido. La rutina siguiente realiza este trabajo y se llama 
LIMPBUF. 


LIMPBUF  (LIMPia el BUffer) 


Despeja la memoria del teclado. 


Requisitos de entrada: CALL dirección, tanto desde BASIC como desde 
código máquina. 


Condiciones de salida: AF alterado. 


Longitud: 6 bytes. 
101 +2 LINPRUE es 

3008 20 ORG” 40200 

908 CDO9B2 30 BUCLE CALL %BBOP 3 Obtiene un caracter del registro 
so; de mencria para el teclado 

9noB— zorB E] JR C/BUCLE 3 SÍ C=l , mar Caracteres? 

Do c9 so Rer 

Comentarios 


Para ver la rutina en acción prueba lo siguiente. La rutina es relocali- 
zable, pero para este caso supongo que los bytes están en la dirección 
402000. 


10 FOR 1=0 TO 3000:NEXT 1 


30 INPUT as 


Ejecutando esto y pulsando algunas téclas mientras el ordenador está 
en la línea 10, introducirá algunos códigos de teclas en la memoria, que 
serán mostrados cuando la sentencia INPUT se ejecute. Repite la ejecu- 
ción ahora, pero con un CALL 40200 en la línea 20. Las teclas extra 
pulsadas ahora serán borradas y los únicos caracteres que aparecerán 
en la sentencia INPUT serán aquellos introducidos una vez ejecutada la 
línea 20. 


ESPERAT (ESPERA Tecla) 


Esta rutina acepta como parámetros una cadena de caracteres y una 
variable precedida de (G. La rutina espera hasta que el programa detecte la 
pulsación de una de las teclas cuyo carácter se haya especificado en 
la cadena de parámetros. La variable con (% devuelve la posición dentro 
de la cadena de parámetros del carácter que ha sido pulsado. La rutina 
es relocalizable, 


Requisitos de entrada: Desde BASIC, CALL dirección,¿aa$,Gp%, donde 
aS ha sido previamente inicialiada con los carac- 
teres que la rutina debe esperar, p% debe iniciali- 
zarse a O antes de hacer la llamada. 

Desde código máquina, las cosas son algo más 
complicadas. IX apunta a un bloque de paráme- 
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tros y A=2, En el bloque de parámetros, “cade- 
na” es la dirección de un bloque descriptor como 
el mostrado más abajo, “dir. variable” es la dirección 
de la posición de un solo byte que recogerá, una 
vez ejecutado el código, la posición de la tecla 
dentro del bloque de datos de los códigos ASCII 
aceptables a los que se apunta en el bloque des- 
criptor; “número” es el número de códigos ASCII 
almacenados en la tabla de códigos ASCH posi- 
bles apuntados por “dirección”. 


AAA 


(1x+3) — | b. alto dir. cadena | 
b. bajo dir. cadena 
b. alto dir. variable 
(1x) — |b. bajo dir. variable | 


Bloque de parámetros de ESPERAT 


Condiciones de salida: 


dirección alto 
dirección bajo TT—+ 


número. 


Bloque descriptor de ESPERAT. 


Todos los registros están alterados. Se produce 
una salida inmediata si se introduce un número 
equivocado de parámetros o si A no es, igual a 2, 


63 bytes. 


24 ESPERA ax 
40200 
2 
ez 
L, cmo 
ASES) 
Ml Guarda en la pila la direccion 
de las variables 
Le Extrae la direccion del bloque 
LO Hp C1X+3) descríptor de la cadena 
LD Anto Numero de caracteres de la cadena 
INC HL Introduce la direccion de la 
LD Cs CHLo cadena, en el 
INC HL registro BC 
LD Br UMLo 
PUSH BE 
POR HL Tambien lo hace en HL 


ADIF 324490 180 LD CTEMP),A 5 Almacena la longitud de 


190 + la cadena buscada 

9022 22459D 200 LD CTEMPZ),ML 5 Almacena la direccion 
210 5 de la cadena 

9025 3AG49D 220 BUCLEZLD A,(TEMP) 5 Introduce la longítud en B 

9028 47 230 LD BA 

9029 204590 240 LD HL,CTEMPZ) ; Recupera la direccion 

9D2C CS 250 PUSH BC 

9020 ES 260 PUSH HL. 

907€ CDIBBB 270 CALL 4BB18 3 Espera algun caracter 

9DJ1 El 280 POR HL 

7D3SZ Ci 290 POP BC 

9D33 1801 300 LD Ex 3 

9035 BE 310 BUCLE CP UL) ; 

7036 2806 320 IR ZAVISTO 

9038 10 330 INC E ' 

9039 25 340 INC HL 3 

DIA 10F9, 350 DINZ BUCLE 5 

9D3C 1887 360 JR BUCLEZ 3 Si no coincide ninguno, 
370 + vuelve a empezar otra 

SDE El 380 VISTO POR HL y Recupera la direccion 
390 1 de la variable 

PDF 73 400 LO (HL), s Pone el valor en ella 

9DA0 23 410 INC HL 

9041 3600 420 LD (Hao 

93 09 430 RETOS Vuelve al BASIC 

3044 0 440 TEMP DEFB O 

9D45 0000 450 TEMPZ  DEFW 00 


Pruébalo con esto. 


y 10 As="abedef” : pz=0 
[o] 


1 
| 20 CALL 40200,8A$,€pZ:PRINT pX5:60T0 20 


Comentarios 


La rutina es muy útil para múltiples aplicaciones. Por ejemplo, exami- 
nando una contestación del usuario a una pregunta que requiere tan sólo 
un sí o un no, como respuesta. Las únicas teclas de respuesta con algún 
interés serán “S”, “N”, “s” y “n”, Así, desde BASIC podemos limitarnos a 
ejecutar la línca 


A$="SsNn":PX=0:CALL 40200, 2A$,ePz 


La rutina sólo volverá al BASIC cuando una respuesta conveniente 
haya sido recibida desde el teclado, en este caso “S”, “N”, “s” o “n”, p% 
contendrá entonces un valor que corresponde a la tecla pulsada. Así, si 
“S” ha sido pulsada, p%=1. O bien, si “n” ha sido pulsada, p%=4. 

La siguiente rutina que veremos es una simple rutina “de introducción' 
que permite al usuario teclear una cadena de caracteres terminados por la 
tecla ENTER. La rutina se llama INTROCAD. 
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INTROCAD 


Bloque de parámetros de INTROCAD 


Requisitos de entrada: 


Condiciones de salida: 


(INTROduce CADena) 


Acepta una cadena de caracteres desde el teclado y los almacena bien 
en una variable literal, bien en un bloque de memoria. 


dirección alto 
dirección bajo 


A 


Bloque descriptor de INTROCAD 


Desde BASIC, CALL dirección. GAS,L%, donde 
L% es el máximo número de caracteres que el 
usuario puede teclear. A$ es la variable literal 
que ha sido previamente inicializada para ser 
más larga que L%. 

Desde código máquina, IX apunta a un bloque 
de parámetros, “dirección” es la dirección de un 
bloque descriptor. En el bloque descriptor, num 
es el número de bytes que han sido colocados 
aparte para la cadena introducida. Deberá ser 
mayor que L%. “dato” es la dirección en la me- 
moria donde la cadena introducida se va a si- 
tuar. 


Todos los registros son alterados, La rutina ter- 
mina cuando: 


1. Se pulsa la tecla ENTER. 

2. El usuario teclea un número de caracteres 
mayor que L%. La cadena devuelta en este 
caso serán los L% primeros caracteres. 


En ambos casos, se producirá un pequeño pitido. 
Los caracteres introducidos pueden ser entonces 
accesibles bien en una variable literal, bien en el 
área “dato” de la memoria. 


137 bytes. 


220 
230 
240 
250 
260 
270 
280 
290 
300 
10 
320 
330 
340 
350 
360. 
370 
380 
390 
200 
410 
420 
330 
150 
450 
460 
170 
480 
490 
500 
510 
520 
530 
540 
530 


LIMPIA 


BUCLE 


1 
BUCLEL 
FIN 
FINZ 


BORRA 


LIMPIA 


BUCLE 
FINZ ; 
BC 5 
a,7 

mansa , 


HL, CTEMPIIO 


, 


Unicamente continuaremos 
si la longitud de la caden 
es mayor que la especificada 
por la sentencia CALL 


Obtiene la direccion de 
la longitud propuesta 
para la cadena 


Quita los espacios de la cadena 


Espera un caracter 


Salta sí se ha pulsado ENTER 


Escribe el caracter en 
la pantalla 

Siguiente posicion a llenar 
hora mira si excede de la 
longitud manima 


Salta sin recuperar BC 
Finaliza la pila 


Emite un pitido 


Vendra aquí cuando 
se pulse DEL 


Si no hay nada en la caden, 


pita y salta a NADA 


Retrocede y escribe un espacio 
Ajusta el contador de caracteres 


Ajusta la posicion de la cadena 
Espacio 
Vuelve 


Vuelve al bucle principal 
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Ensámblalo y pruébalo con el siguiente programa BASIC. 


o; 10 AS=STRING$(40," ") ' 

; 20 CALL 41000,€A5,35 1 
o; 30 PRINT ¡0 
H 40 PRINT AS i 
o! jo 

Comentarios 


La rutina finaliza inmediatamente si el número de parámetros no es 
correcto o si A no contiene el valor 2. Si el valor de L%, es superior a la 
longitud de la cadena (desde BASIC) o mayor que la cantidad de espacio 
“dato” disponible (desde código máquina), también se produce un inmedia- 
to regreso. De otro modo, una vez llamada la rutina puedes teclear 
caracteres hasta que pulses la tecla ENTER o el número de caracteres 
tecleados supere L%, Los caracteres se imprimirán en la pantalla y tam- 
bién se almacenarán en el área de la cadena. Será posible borrar, pero la 
rutina NO te permitirá borrar más allá de donde comenzó la cadena. 
Sonará un pitido si lo intentas. 

Prueba también la siguiente rutina de demostración en BASIC. Los 
bytes listados son para la dirección 41000 y supongo que el código 
máquina ya está almacenado en esta dirección. 


100 
110 ¿REM Numero de caracteres. 
120 A$=STRING$(12," ") 


130 CALL 41000,6A$,PZ 
140 PRINT:PRINT 
150 PRINT AS 


Si ejecutas esto, introduces algunos caracteres y luego listas el progra- 
ma, advertirás que la definición de la cadena en la línea 120 ha sido 
modificada para recoger los caracteres que se han tecleado. Hablaré más 
de ello en el capítulo 9, cuando discutamos la estructura del programa en 
BASIC de Amstrad con más detalle. 

Aunque las rutinas ROM existen en el Amstrad para distintas aplica- 
ciones, como alterar los intervalos de repetición de las teclas, etc., no me 
propongo entrar aqui en la explicación de ninguna rutina. Normalmente 
es más sencillo utilizar equivalentes en BASIC, Así que aquí terminamos 
nuestro estudio de las rutinas de teclado. 


Rutinas 
de sonido 


El Amstrad es capaz de generar algunos efectos de sonido impresio- 
nantes y no hay duda que serás consciente de ello si ya has intentado 
usar las extensas facilidades de sonido del ordenador desde el BASIC. 
Muchas de estas facilidades también están disponibles desde el código 
máquina por medio de las rutinas del firmware. Estas permiten al progra- 
mador de código máquina el acceso a la cola de espera, a las envolventes 
de tono, envolventes de volumen, etc. Todas ellas están cuidadosamente 
documentadas en el manual técnico de firmware de Amsoft, y no hay 
motivo para repetir aquí dicha información. 

En lugar de eso, quiero dirigir la atención directamente hacia la pro- 
gramación del generador programable de sonido. Dirás que, ¿para qué 
molestarse si podemos conseguir los efectos mediante las rutinas del firm- 
ware? Bien, el empleo de las rutinas del firmware requiere, a menudo, 
complicadas tablas de datos que han de ser almacenadas en memoria 
antes de acceder a dichas rutinas. El proceso de inicialización no es tan 
largo de realizar cuando usamos directamente el GPS. Si bien el GPS no 
puede hacer todo lo que está disponible desde el BASIC, sí que es capaz 
de generar tonos, ruido y tiene algunas envolventes de volumen accesibles 
con facilidad; todo ello lo convierte en un dispositivo bastante versátil. 
Las envolventes de tono y demás, disponibles desde el BASIC, son produ- 
cidas por el GPS con una pequeña ayuda de la CPU. La ventaja de usar 
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directamente el GPS es que para los efectos de sonido a menudo deseados 
en programas de juegos, etc., es más conveniente el acceso directo al GPS 
que el inicializar las diferentes tablas de datos que son requeridas por las 
rutinas del firmware. Claro está que para algunos efectos sonoros necesita- 
remos utilizar rutinas del firmware, pero aun así encontrarás sorprendente 
la cantidad de cosas que puedes obtener del GPS por sí solo. 


¡Pita! 


El efecto sonoro más simple que se puede obtener es el generado por 
el siguiente fragmento de código máquina. 


LD A,7 
CALL —— HBBSA 
RET 


Este “pitido” es útil para indicar que algo ha ocurrido o que se ha 
detectado un error, o para cosas así. 


El generador programable de sonido 
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El GPS es un instrumento muy versátil y relativamente sencillo de 
usar, aunque a primera vista parezca un poco apabullante. Es un dispositi- 
vo de tres voces; esto es, es capaz de generar tres sonidos diferentes a un 
mismo tiempo. También posee unas cuantas envolventes de volumen, 
implementadas en su hardware. El control del volumen producido por 
cada canal se puede gobernar desde el exterior. Si no estás seguro sobre el 
significado de la palabra envolvente, entonces te sugiero que consultes el 
manual del usuario de Amstrad y leas el capítulo 6. La generación y la 
amplitud de los tonos emitidos son controlables individualmente para 
cada voz. La pastilla también es capaz de generar ruido blanco. Una 
colección de quince registros insertados en el GPS son los encargados de 
llevar a cabo todo esto. Estos registros pueden ser leídos o escritos de una 
forma similar a los de la CPU. El GPS también es capaz de realizar 
operaciones de entrada/salida, pero no vamos a profundizar en eso aquí. 
Aunque el sistema operativo del Amstrad accede a esta pastilla mediante 
el chip PPI (interfaz periférico programable), no podemos escribir directa- 
mente en los registros de la PPI. Bueno, en realidad, sí podemos, pero no 
sería aconsejable debido a la complejidad de las operaciones de E/S del 
Amstrad y la posibilidad de olvidar algún detalle mientras lo preparamos. 
En cambio, Amstrad nos ofrece una rutina muy útil que nos permite 
escribir valores en un determinado registro del GPS sin peligro alguno de 
dejar las cosas a medio hacer. 


La rutina MC REGISTRO DE SONIDO, del firmware 


Esta rutina se encuentra en la dirección £BD34; para poder llamarla, 
el registro C contendrá un valor entre O y 255 y el registro A contendrá el 
número de registro del GPS en donde quieras escribir el valor. A la salida, 
los registros AF y BC estarán alterados. La siguiente rutina, REGISTRO, 
puede utilizarse desde el BASIC para escribir en valores en los registros 
del GPS. 


Registro 


Una rutina que permite al programador acceder directamente y desde 
el BASIC a los registros del GPS. 


Requisitos de entrada: Partiendo desde BASIC, usaremos CALL direc- 
ción, reg, valor; siendo reg el número de registro, 

y valor el valor que queremos escribir en el re- 

gistro, 

Desde el código máquina, la rutina de la ROM 

puede ser llamada directamente. 


Condiciones de salida: — Irrelevante. 


Longitud: 12 bytes. 
9009 10 REGIST ORG 80200 
9009 DD7E02 20 LD AL Cxez) 
9DOB= pD4EOO 30 Lo co 
9DOE — COSABD 30 CALL abosa 
011 09 so RET 
Comentarios 


Es esencial para esta rutina que adquieras algunos conocimientos sobre 
los registros del generador programable de sonido antes de usarla. Veamos 
esto ahora mismo. 


Registros del GPS 


Esta sección es algo así como un “cursillo intensivo y apresurado” 
sobre los registros del GPS. Si lo que realmente quieres es estar versado 
en el dispositivo, entonces consulta la hoja de aplicaciones del AY-3-8912 
de la General Instruments. Sin embargo, para propósitos de programa- 
ción, los datos aquí presentados serán probablemente los más adecuados. 
Los registros del GPS están numerados, con afán de originalidad, del O al 
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15. Los registros 14 y 15 no son utilizados para la generación de sonidos, 
sino que están enredados con la parte de E/S del GPS. Como todos los 
registros, si no sabes exactamente qué es lo que estás haciendo, ¡NO LOS 
TOQUES! 


Registros 0 al 5 


Estos registros controlan la producción de las notas emitidas en los 
canales 1, 2 ó 3. La emisión del canal 1 es controlada por los registros 0 y 
1, la del canal 2 por los registros 2 y 3, y la del canal 3 por los registros 4 

S 

z Los registros se componen de 12 bits efectivos; los 8 bits más bajos 
están en el registro de número más bajo de cada par, y los 4 bits más altos 
están contenidos en el registro con número mayor de los que componen 
el par. El registro con los ocho bits más bajos, esto es, el registro O para el 
canal 1, es denominado registro de control fino del tono, y el registro con 
los cuatro bits más altos se denomina registro de control grueso del tono. 
La razón para esto es obvia; un simple incremento en el registro de 
control grueso tiene un efecto notable en la frecuencia del tono emitido, 
mientras que un incremento en el registro de control fino es apenas 
discernible en el tono producido. Por eso, el registro 0 es el registro de 
control fino del tono para el canal 1, y el Registro 1 es el registro de 
control grueso de tono para el mismo canal 

Cuanto más grande sea el número que contengan estos registros, más 
grave será el tono generado en ese canal en particular. 


Registros 8 al 10 


Estos son los llamados registros de control de amplitud del GPS. 
Existe uno para cada canal y cada registro tiene 5 bits. Estos 5 bits les 
permiten contener un valor entre 0 y 31. Sin embargo, si el bit 4 está a 1, 
el canal correspondiente se comportará de forma especial como enseguida 
veremos. Normalmente, el volumen del sonido emitido en cada canal 
dependerá del valor contenido en los bits O a 3. El silencio se consigue con 
el valor O y el sonido más fuerte se obtendrá cuando el valor sea 15, Si el 
bit 4 está puesto a 1, entonces la amplitud del sonido generado en ese 
canal se controla por una de las envolventes de volumen propias del GPS, 
en vez de estar controlado por los 4 bits más bajos del registro de control 
de amplitud. Después examinaremos con gran detalle estas envolventes de 
volumen. El registro 8 controla el volumen del canal 1, el registro 9 
controla el canal 2 y el registro 10 controla la amplitud del canal 3, 

Pero no es suficiente indicar una amplitud y activar un determinado 
canal para que el GPS reproduzca una nota seleccionada. La generación 
de un-sonido en un determinado canal depende del estado en que se 


encuentren ciertos bits del registro 7. Este es el registro de control 
del GPS. 


Registro 7 


EstRrBRETo 


[ im 
4 activa tono canal 1 
activa tono canal 2 


activa tono canal 3 
activa ruido canal 1 
activa ruido canal 2 
activa ruido canal 3 
control E/S. DEJAR A CERO 


Los bits 6 y 7 de este registro conciernen únicamente al control de las 
entradas/salidas del GPS. En el Amstrad, aparecen de alguna manera 
encargados del teclado. Por ejemplo, si en un descuido dejas el bit 6 
puesto a 1, el teclado permanecerá totalmente muerto y aislado del orde- 
nador. Si estás en modo interactivo, la única forma de salir de esa 
situación es apagar el ordenador. Si esto tiene lugar en el transcurso de un 
programa, puedes tener preparadas algunas instrucciones para desactivar 
el bit; pero sugiero que lo mejor es dejar los bits 6 y 7 permanentemen- 
tea 0. 


Bits 0 a 2 


Estos 3 bits controlan la generación de tonos en los canales 1, 2 y 3. Si 
un bit permanece desactivado (a cero), entonces se generará un tono en el 
canal correspondiente, asumiendo que el registro de control de amplitud 
de ese canal contiene un valor apropiado. De esta forma, para que el canal 
1 emita una nota, tendrán que llevarse previamente a cabo los siguientes 
pasos: 


1. Los registros O y 1 contendrán el valor correspondiente al tono 
elegido. 

2. Se guardará en el registro 8 el volumen adecuado. 

3. El registro 7 deberá contener 8:X00111110. 


Cuando un bit de un canal dado está puesto a cero de esta forma, se 
dice que el canal referido está ACTIVADO. Si el bit está puesto a 1, no se 
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emitirá ningún tono y se dirá que el canal está DESACTIVADO para 
producir tonos, 

Si ponemos los 3 bits a cero, conseguiremos que los tres canales emitan 
tonos simultáneamente. 


Bits 3a 5 


Estos son los denominados bits de activación de ruido, y son los 
responsables de controlar si aparecerá o no ruido blanco en uno cualquie- 
ra o en los tres canales. Dentro de un momento hablaremos de ruido. Al 
igual que antes, si uno de estos bits está puesto a O provocará que apa- 
rezca ruido blanco en un canal determinado. El volumen del ruido coinci- 
dirá con el que indique el registro de control de amplitud (registro 8 al 10) 
de ese canal. El ruido de un canal permanecerá desactivado si su bit 
correspondiente está puesto a l. 

Es posible emitir a un mismo tiempo y en un mismo canal una nota y 
un ruido, Esto se consigue sencillamente poniendo a O los bits de tono y 
ruido para ese canal. Sin embargo, no es posible tratar por separado el 
volumen del ruido y el del tono, ya que el registro de control de amplitud 
es el mismo para ambos. Así pues, los ruidos y tonos que se produzcan 
simultáneamente en un canal serán emitidos a un mismo volumen. Por 
supuesto, el ruido también puede ser generado bajo el control de una 
envolvente de amplitud, del mismo modo que se hace para un tono. 


Generación de ruido 


El generador programable de sonido es capaz de producir ruido blanco 
en una amplia banda de “frecuencia”, si es que este término se puede 
aplicar al ruido. Un ruido bajo en frecuencias producirá un sonido “impe- 
tuoso”, mientras que valores elevados producirán una especie de “siseo”. 
La producción de ruidos emitidos por los tres canales es controlada por 
un solo registro. 


Registro 6 


Este es el registro de control ruido producido. Se trata de un 
registro de 5 bits, ofreciendo la posibilidad de valores entre O y 31 para el 
ruido a generarse. El valor 31 dará el ruido más bajo en frecuencias, 
mientras que O dará el ruido más alto. Como ya mencioné, sólo dispone- 
mos de un único registro de control de ruido para los tres canales; por eso 
el ruido emitido por cada canal no puede controlarse individualmente. 

Finalmente, consideremos las envolventes que residen en el GPS. Estas 
son todas las envolventes de amplitud y pueden ser de gran utilidad. El 


resto de los registros del GPS se refieren todos ellos al control de envol- 
ventes y a las E/S. 


Envolventes 


Existen dos parámetros que describen las envolventes de amplitud que 
ofrece el GPS. Estos son el número de envolvente, que describe “la forma” 
de la envolvente, y el periodo de envolvente, que es una valoración de la 
cantidad de tiempo que llevará emitir el sonido. 


Registro 13 


El contenido de este registro especifica la forma de la envolvente que se 
aplicará a cualquiera de los sonidos con envolvente que se emitan. 


Contenido del registro 13 Forma de la envolvente 
A 
KA 
PE 
5 A 
PE” 
8 NN 
pe 


PE 


=== 


E 
pi 
E: 


— > — 
PE 


PE indica el período de la envolvente, y su duración está controlada 
por el valor contenido en los dos registros del período de envolvente, R11 
y R12. Juntando ambos registros, se forma un valor de 16 bits, del cual 
R11 es el byte bajo y R12 es el byte alto. Cuanto más alto sea el valor de 
estos registros, mayor será la duración de la envolvente. Cuanto mayor sea 
el período de la envolvente, será más lento el cambio de amplitud durante 
la emisión de la nota. 

El que una envolvente se aplique a un tono emitido, a un canal 
determinado, o a un ruido o lo que sea, dependerá del estado del bit 4 del 
registro de control de amplitud del canal correspondiente. Todos los 
canales que tengan este bit puesto a 1 emitirán tonos o ruido con la 
misma envolvente. Esto se debe al hecho de que solamente hay un registro 
de forma de la envolvente y otro registro del período de envolvente. 


Técnicas de sonido 


164 


Es fácil convertirse en maestro de las técnicas básicas de empleo 
directo del GPS. Por lo general, necesitarás hacer algunos ensayos y 
cometer algunos errores antes de que comiencen a salir buenos efectos 
sonoros del altavoz de tu Amstrad. Si quieres dejar desactivados uno o 
más canales, es cierto que puedes poner a cero el registro de control de 
amplitud apropiado. Probablemente no sea ésta la mejor manera de hacer 
las cosas, aunque sólo sea porque esto elimina a la vez tanto el tono como 


el ruido del canal. En general es mejor utilizar el registro 7 para controlar 
la generación de sonido. El registro 7 puede contener $£:X00111111, mien- 
tras que los demás registros permanecen inicializados; de esta forma los 
tonos y ruidos de todos los canales quedan desactivados. Después, cuando 
quieras producir un sonido, no tienes más que poner a O los bits apropia- 
dos del registro 7 para activar ruido, tono o ambos, en el canal deseado. 

Mientras se está generando un sonido, puedes alterar el contenido de 
los registros. De esta forma se puede desvanecer gradualmente un sonido, 
bajo control de la CPU, o puedes alterar su tono poco a poco. De hecho, 
ésta es la forma en que el sistema operativo del Amstrad genera sus 
envolventes de tono y de volumen: alterando los registros del GPS bajo 
control de las interrupciones. Debe observarse, sin embargo, que una vez 
que un canal comienza a emitir sonido continuará haciéndolo hasta que el 
registro 7 sea convenientemente alterado. Esto es de gran utilidad, especial- 
mente trabajando con las envolventes del GPS, ya que la CPU puede 
olvidarse momentáneamente del generador de sonido, y hacer algo más 
importante. 

Me gustaría terminar este capítulo con unos cuantos ejemplos de 
efectos de sonido. Estos están producidos por las propias envolventes del 
GPS y sirven para mostrar parte de lo que hay disponible. Si descas 
producir efectos más exóticos, puedes elaborar sencillos bucles con rutinas 
en código máquina que actualicen los registros del GPS mientras se está 
emitiendo otro sonido. Sin embargo, creo que estos ejemplos te darán un 
punto de partida, Para escucharlos es suficiente inicializar los registros 
apropiados del GPS con los valores dados, siendo el registro 7 el último 


en cargar, 
Explosión 
ie 
Registro Valor 
6 30 
8 16 
11 255 
12 30 
13 1 
7 *xX00110111 


Locomotora de vapor 


Registro Valor 
6 30 
e 16 
11 255 
12 o 
13 14 
Z EX00110111 
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_—_ Ann 


Tal vez te guste más si intentas cambiar el tipo de ruido, alterando el 
contenido del registro 6. 


Rayo laser 


Registro 


¡Boing! 


Registro 


Disparo 


Registro 
6 
8 
11 
12 
13 
72 


Valor 
255 
o 
16 
100 
o 
10 

$X00111110 


Valor 
o 
2 
16 
191 
10 
1 

24xo001 11110 


Valor 
30 
16 
255 
2 
1 
eXOOL1O111 


En todas estas rutinas se entiende que los registros no mencionados 


están todos puestos a cero. 
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1 acarreo ¿ 
) PRINTER. 
del dato. 
date ; 


de 


Rutinas 


de manipulación 


Control 


del cassette 


Existe una variedad de rutinas en el Amstrad que permiten al progra- 
mador de código máquina acceder con mayor facilidad a las rutinas 
encargadas de las operaciones de cassette. Con todas las facilidades que 
ofrece el BASIC podrías preguntarte para qué molestarse en acceder a esas 
rutinas desde programas en código máquina. Bueno, es muy útil para 
cuando estés escribiendo programas que requieran grabar datos en la 
cinta. Además, no te vendrán mal algunos conocimientos sobre las rutinas 
de cassette para producir formatos individualizados de cassette para pro- 
tección en software o para ficheros especiales de datos a los que sólo 
puedan acceder determinados programas. 

De cualquier modo, empezaremos con un par de llamadas firmware 
bastante útiles que puedes usar sin inicializar los registros. 


del motor 


Una característica algo irritante del sistema de cassette del Amstrad es 
el modo en que la tecla PLAY se inhibe, excepto en operaciones de 
entrada, salida, o de catalogación. Esto significa que para hallar una parte 
en blanco en la cinta es necesario catalogar la cinta mediante la orden 
CAT, impidiéndote realizar cualquier otra cosa mientras el cassette 
avanza. 


169 


170 


Pueden usarse dos rutinas ROM para controlar el motor del cassette; 
CALL K£BC6E pondrá en marcha el motor y CALL £BC71 lo desconec- 
tará. Una vez conectado el motor, habrá una pequeña pausa antes de que 
aparezca la expresión “Ready”. ¡No te asustes! Se trata sólo del sistema 
operativo asegurándose de que la cinta ha alcanzado una velocidad unifor- 
me de avance antes de devolver el control. 

La rutina llamada en la dirección £BC9B también es bastante útil, ya 
que es el código máquina que realiza la función equivalente a la orden 
CAT del BASIC. Si utilizas esta última llamada, DE debe apuntar a un 
área de memoria de 2048 bytes que la rutina firmware pueda usar como 
espacio de trabajo. 


CAT 


No debe confundirse con la orden de BASIC del mismo nombre; esta 
rutina en código máquina cargará la cabecera de un fichero de la cinta. 
Una vez en memoria, los distintos detalles sobre el fichero, como, por 
ejemplo, la longitud, dirección de comienzo, etc., están disponibles para 
consulta, 


Requisitos de entrada: Desde BASIC o código máquina, simplemente 
llama a la rutina mediante la orden CALL, Debe 
haber un espacio temporal de memoria disponi- 
ble. (Véase Comentarios.) 


Condiciones de salida: Todos los registros son alterados. 


Longitud: 12 bytes más 64 bytes para la reserva de me- 
moria. 
10.7 me CABECERA ee 
3008 20 She 40200 
3no8 3ez0 30 ED” Uareze 1 Código de sincrenisno esperado 
DORA 214090 40 LD ÍLya0000 y Registro de menaria en 20000 
3D0D 111000 LD DEJGA 4 iNusera de Sylee a cargar 
SD1O CDaIBe $0 CALL Otal 5 Los carga 
013 co 7 ren Terminado 


Ensámblalo y pruébalo con el siguiente programa BASIC, 


10 CLS 

20 CALL 40200 

30 nombre$=" " : buffer=40000 

40 FOR I=bufter TO buffer+15 

50 nombre$=nombre$+CHR$ (PEEK (1)): NEXT 

60 inicio=PEEK (buffer+21)+256*PEEK (buffe 
r+22) 


IOMA 


o 
o 
o 
o 


70 Longitud=PEEK (buffer+24)+256xPEEK (buf 
fer+25) 

80 PRINT nombres : PRINT "Longitud :. 
4 "5longitud 

90 PRINT "Comienzo en direccion : 
jinicio 

100 PRINT:PRINT 

110 GOTO 20 


o -910' 10 


o.0.00 O 


Comentarios 


Esta rutina es relocalizable, siempre que la dirección de la zona tempo- 
ral de memoria se altere si es necesario. En esta rutina, HL se usa para 
transferir la dirección de la zona temporal de memoria a la rutina de 
firmware. En la rutina listada se ha usado 40000 como dirección de esta 
memoria temporal. DE contiene el número de bytes que la rutina de 
firmware va a cargar, y que será siempre 64 para el encabezamiento. 

El registro A debe contener un valor llamado byte de sincronismo, a la 
entrada de la rutina del firmware, que diferencia efectivamente el encabeza- 
miento de un bloque de datos dentro de un fichero. El encabezamiento 
para un bloque de datos es £16 y para un bloque normal de encabeza- 
| miento es $:2C. Si el byte de sincronismo de un bloque de información 
Í que esté en la cinta no corresponde al byte de sincronismo del registro A, 
tal información será ignorada. 

Cuando la rutina firmware ha recibido el encabezamiento, regresaremos 
al BASIC, Sin embargo, también puede ocurrir que la vuelta al BASIC se 
produzca por una condición errónea de cualquier tipo. Aquí no hemos 
utilizado este tipo de información pero tal vez quieras extender la rutina 
anterior añadiendo mensajes de error, asi que vamos allá. 

Si la operación de carga ha dado resultado, el indicador de acarreo se 
pondrá a 1. De otro modo, C=0. En este caso el registro A contiene un 
número de error. z 


A=0: ESC ha sido pulsada para terminar la operación. 


A=1: Error de sobrecarga. Esto ocurre si hay más datos disponibles 
en el cassette de los especificados en el registro DE cuando la rutina de 
| K£BCAL ha sido llamada. 


A=2: Indica un error PRC. La prueba de redundancia cíclica es el 
sistema mediante el cual el sistema operativo puede determinar si se ha 
cometido un error en la lectura actual de un byte de datos desde el 
cassette. Si ocurre esto, generalmente indica que uno o más de los bytes 
leídos desde el cassette están alterados. 


in 


A A e 


172 


Una vez que tenemos el bloque de encabezamiento en la memoria, nos 
queda por hacer su decodificación. En esta rutina sólo buscamos el nom- 
bre, longitud total y dirección de comienzo del fichero. El resto de los 
bytes del encabezamiento no nos interesan aquí. Sin embargo, si eres 
curioso, el manual del firmware te proporcionará los detalles que precise; 
también podrás encontrarlos en Programación avanzada del Amstrad publi- 
cado por esta casa. 


Nombre del fichero: Está almacenado en los 16 primeros bytes del 
encabezamiento, y ésta es la razón de que el nombre de un fichero para 
ficheros de cassette sólo pueda tener una longitud de 16 caracteres. Si el 
nombre es más corto de 16 letras, entonces se completan los 16 caracteres 
rellenándose con códigos nulos (CHRS(0). 


Dirección de comienzo: Se almacena en los bytes 21 y 22 del encabeza- 
miento. El bloque se numera de O en adelante. Esta dirección desde la que 
los datos fueron grabados, se almacena en el formato usual del Z-80 con el 
byte bajo en primer lugar. Sin embargo, hay un punto a considerar. Esta 
sólo es la dirección de comienzo de ese bloque de datos en particular y, 
por tanto, sólo será la dirección de comienzo de todo el fichero si es la del 
primér bloque de datos. Para bloques posteriores ésta será la dirección de 
comienzo de ese bloque de datos en particular. El número del bloque, que 
puede ser de utilidad para estos casos, se almacena en el byte 16 del 
encabezamiento. 


Longitud del fichero: Es la longitud total del fichero grabado. Se 
almacena en los bytes 24 y 25 del encabezamiento, de nuevo con el byte 
bajo almacenado en primer lugar. 


El siguiente programa en BASIC utiliza la rutina CAT para conseguir 
información más detallada a partir de las entradas del encabezamiento 
mencionadas anteriormente, Yo lo encuentro particularmente útil para 
revisar mis programas en código máquina, que tiendo a almacenar como 
ficheros que contienen únicamente bytes. De paso te diré que esta rutina 
no está diseñada para facilitarte el acceso a los programas ajenos. Es 
ilegal, así que no lo hagas. He considerado que parte del programa en 
código máquina está en la dirección 40200 y que la zona temporal de 
memoria para los datos introducidos está en la dirección 40000. El progra- 
ma, según se ejecuta, espera a los distintos encabezamientos y escribe 
algunos detalles en la pantalla. Pulsando ESC terminará el programa. 


o 10 buffer=40000 o) 
20 CALL 402 ; 
o 30 nombres= ne) 


40 FOR I=buffer 10 buffer+15 


50 nombre$=nombres+CHR$ (PEEK (1), 


o! 55 NEXT 1 
A 60 inicio=PEEK (buffer +21) +256*PEEK (butte 
o r+22) 
H 70 longi tud=PEEK (buf fer+24) 1256*PEEK (buf 
lo) fer+25) 
H 80 PRINT nombres 
| 85 PRINT "Longitud : "¿longitud 
H 90 PRINT "Direccion inicial inicio 
H 100 PRINT:PRINT 
oi 110 GOTO 20 
Cuando tengas detalles acerca del resto del encabezamiento, podrás 
ampliar fácilmente esta rutina. Sin embargo, ésta te servirá para muchas 
aplicaciones. 
ESCRIBCASS (ESCRIBe en CASSette) 


Es una rutina para escribir un fichero de datos con nombre en la cinta. 
Es realmente una versión en código máquina de la orden SAVE, aplicada 


a ficheros el 


1 binario, por lo que no daré requisitos de entrada en BASIC. 


También daré un par de rutinas lectoras, que te permitan guardar y cargar 


ficheros de 


datos desde código máquina. 


Requisitos de entrada: 1X apunta a un bloque de encabezamiento de 64 


bytes, como se muestra en los Comentarios de esta 


rutina, 

Condiciones de salida: Todos los registros son alterados. 
Longitud: 37 bytes. 

10 5 «% ESCRIBCASS ++ 
9n08 20 DR 40200 
708 DDZ1207D 30 LD 1X,CABEZ 
9DOC— DDES 20 PUSH IX 
DOE Z1200D 50 LO HL,CABEZ 
D11 114000 so LD DEs64 
9DIA 3EZC 7o Lo ApN2c 
9DIé CDPESC $0 CALL mbcoE 
9019 DDE1 o POP 1x 
IDIB DDÉEIS 100 LD L,(IXe20) 
DIE DD6616 110 Lo mano22 . 
PDZ1 DDSEIS 120 LD Esto 
9024 DDS614 130 LD D,(Ixe20) 
30z7 3EL6 130 LD amo 
9029 CDIEBC 150 CALL MBCIE 
9DZC co 160 Rer 
7DZD 54453334 170 CADEZ DEFM “TEST” 
sost 100 DEFS 12 
03D 01 190 DEFB 1 
9D 200 DEFS 2 
9040 ES03 210 DEFA 1000 
Daz 6901 220 DEF 361 
9Daa 00 250 DEFB O 
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Pruébalo con esto: 


CALL 40200 


Comentarios 


El bloque de encabezamiento mencionado es una versión simplificada 
del utilizado por el sistema operativo cuando lleva a cabo operaciones de 
grabación y carga en BASIC. Es importante que observes que, aunque los 
ficheros guardados por ESCRIBCASS aparecerán con la orden CAT del 
BASIC, no serán cargados si usas la orden LOAD del BASIC. El fichero 
grabado por ESCRIBCASS consiste en un encabezamiento seguido de un 
bloque de datos. La estructura de un bloque de encabezamiento deberá ser 
de la forma siguiente: 

Dytes 08 15. NOMBRE DEL FICHERO+CHRE(O)?S hasta completar 15 
ly 'Zo LimeltuD Bel FICHERO, primero sl byia bay 


21 y 22 DIRECCION DE COMIENZO, primero el byte b: 
24 y 25 LONGITUD DEL FICHERO, primero el byti 


El resto de los bytes del encabezamiento deberá ponerse a cero. Como 
ejemplo más detallado, examina el siguiente bloque de encabezamiento, 
que guardará en la cinta un bloque de datos de 1000 bytes de longitud, 
comenzando en la dirección 361, y con nombre TEST para el fichero. 


CABECERA — DEFM "TEST" 
DEFS 12 
DEFB o 
DEFB o 
DEFB o 


DEFW 1000 
DEFW 361 
DEFW 00 
DEF 1000 


El resto del bloque se pone a cero. Advierte que, una vez que se llama a 
la rutina ESCRIBCASS, el fichero se graba inmediatamente en la cinta, sin 
los habituales bytes de sincronismo. Estos podrían añadirse fácilmente si 
fueran necesarios para una aplicación en particular. La única nueva rutina 
ROM utilizada es CAS WRITE, accesible en la dirección $:BC9FE. A la 
entrada, HL contiene la dirección de los datos que se van a escribir, DE la 
longitud y A el byte de sincronismo. La usamos dos veces, una vez para 
meter el encabezamiento en la cinta y otra para meter los datos en la 
cinta. 

Una vez hayamos escrito un fichero en la cinta, es conveniente poder 
leerlo de nueyo. Te muestro dos rutinas para ello, LEECASS y, haciendo 
alardes de imaginación, LEECASS2. Esta última es sólo una versión más 
sencilla de usar que LEECASS. 


LEECASS (LEE del CASSette) 
Esta rutina lee en la cinta los ficheros escritos con ESCRIBCASS. 


Requisitos de entrada: Véase Comentarios. 
Condiciones de salida: Todos los registros son alterados. 


Longitud: 54 bytes, excluyendo las tablas para NOMBRE y 
CABEZA. 
105 ar LEECASS 0. 
9n08 20 ORG 40200 
9008 114000 30 CARGA LD DE,64 4 
3DOB 15090 30 LD HL,CABEZ 5 
9DOE 3E2C so Lo AAC p 
9DIO CDALBC $0 CALL 4BCA1 3 Carga la cabecera 
9DI3 215090 70 LD HL,CABEZ_ 5 DE y ML apuntan hacia el 
9DIó 113E9D So LD DE,NOMBRE 5 nombre del fíchero y hacia 
905 el nombre deseado 
9D19 18 100 BUCLE LD A,(DE) 5 Examina cada caracter 
IDIA BE 110 ceda 
9DIB 20EB 120 JR NZ,CARGA 5 Si no es el mismo, 
130 + carga el siguiente encabezamiento 
901 25 130 INC HL 
9DIE 13 150 INC DE 
9DIF 1A 160 LD A, (DE) 
9020 FEOO 170 ceo o 3 Cero indica el final del nombre 
9022 20F5 180 JR NZ,BUCLE 5 Sino 
190 5 sigui 
9DZ4 DDZI3E9D 200 LD IX,NOMBRE 5 Extra 
9D28 DDéEIO 210 LD L,(Iketór 
9DZB DDá611 220 LD Hp C1xe17) 
9DZE DDZ21509D 230 LD IX,CABEZ 5 Extrae la longitud de la cabecera 


9D3Z DDSEIS 240 Lo 
9033 DD3619 250 LD Do c25 

9038 SEL6 260 LD Ashiá 5 Byte de sincronisno 
9D3A CDALEC 270 CALL ÓBcAs 

90SD co 290 RET 

SDSE 54435354 — 290 NOMBRE DEFM "TEST" 

9042 300 DEFS 12 

DIE 409c 310 DEFW 40000 5 Direccion de carga 
5D30 320 CABEZ DEFS 64 3 64 ceros 
Comentarios 


Esta rutina requiere la presencia de dos tablas de datos, que he 
llamado NOMBRE y CABEZA. La tabla CABEZA no es más que un 
bloque de 64 bytes en los que puede cargarse un encabezamiento. NOM- 
BRÉ, sin embargo, debe ser organizado por el programador. Como sugie- 
re su nombre, contiene el nombre del fichero que quieras leer. También 
recoge la dirección en la que se va a cargar el fichero. Tiene una longitud 
de 18 bytes. 


Bytes 0 a 15: Contienen el nombre del fichero, rellenándose hasta 
completar los 16 bytes con CHRS(0). 
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Bytes 16 y 17: La dirección de carga del fichero se almacena en estas 
dos posiciones, con el byte bajo en primer término. 


Dada su sencillez, esta rutina plantea una serie de inconvenientes. 
Surgen en cuanto a la imposibilidad de interrumpir la búsqueda de un 
nombre de fichero, por la ausencia de mensajes mientras la búsqueda 
continúa, o cuando se descubre un error en la longitud de un fichero, 
como casos principales. Vamos a ver primero este último problema. 

El número de bytes cargados por esta rutina se toma del encabeza- 
miento cuyo nombre coincide con el del fichero que nos interesa. Puede 
surgir un problema en cuanto que los bytes cargados en el espacio desig- 
nado como inicial para la dirección de carga pueden superponerse a 
programas u otros datos que en principio no se suponían allí. Desde luego 
esto no ocurrirá si tienes cuidado al diseñar los programas, pero puede 
producirse. Si te interesa evitar este posible accidente, puedes seguir las 
siguientes instrucciones: 


1. Designa una dirección concreta en la memoria como término del área 
en el que puedan cargarse los datos leídos en la cinta. 


2. Cuando se lea el encabezamiento de un fichero, añade su longitud a la 
que contiene la tabla NOMBRE en la entrada “dirección de carga”. Si 
el resultado excede de la dirección mencionada en 1, no lo cargues. 


LEECASS2 no incluye esta característica, pero podrás añadirla fácil- 
mente utilizando los detalles que te he dado. 


LEECASS2 
Versión modificada de LEECASS. 


Requisitos de entrada: Véase comentarios. 
Condiciones de salida: Todos los registros son alterados. 


Longitud: 215 bytes, excluyendo NOMBRE y CABEZA. 
105 Ax LEECASSZ «+ 

9008 20 ORG 40200 

9DO8 DDZIC99D 30 LD 1X,BUSCA 

$DOC— CD619o 0 CALL ESCR 

9DOF — DDZIBS?D 50 CARGA LD — IX,OK 

DIS CD619D 0 CALL ESCR 

9D1á CDIBBB 70 CALL eBBtO 

9019 FE7S Bo CP 15 

>DIB_ 2803 50 IR Z/SI 

9010 FESS 100 cr es 

DIF co 110 RET NZ 

$DZO 114000 120 SI LD DE,6% ¿Numero de bytes del encabezamiento 

9023 Z1F39D 130 LD HLICABEZ 5 Los pone aquí 

9026 3EZC 140 LD A,h2C 3 Byte para un sincronismo correcto 


9DJE DD21D39D 
9042 CO619D 
9045 DD2IE19D 
9049 DDSELO 
ADAC DD6S11 
9DAF DOZ1F39D 
9DS3 DDSE1S 
9056 DDS619 
9DS9 SEl6 
9DSB CDAIBC 
9DSE 3023 
9D6o c9 
9D61 DOES 
9D63 COS4BR 
9DEb 3EOD 
9068 COSABR 
9D6B 3E0R 
9D6D CDSABB 
9D7O DEL 
9D72 DD7E0O. 
9073 FEOO 
9D77 ca 
9078 DDES 
9D7A  COSDBB 
9D7D DEL 
9D7F  DD23 
185. 
9DB3 DD21909D 
9087 CD619D 
9DSA  3E07 
9D8C— COSABE 
908 Co 
9D9O 3A656E67 
00 
AJ6F6E7A 
00. 
42757363 
00 
43617267 


Comentarios 


sio 
520 
530 
540 
530 
360 
570 
580 
590 
600 
510 
$20 
630 
630 
650 
660 
670 
480 
490 
700 
710 
720 


ESCR 


BUCLES 


CALL 
IR 
Lo 
LD 


Lo 
ce 
JR 


INC 
INC 
LO 
ce 
ES 


Lo 
CALL 
LD 
Lo 
LO 
co 
Lo 
Lo 
LD 
CALL 
ye 
ReT 
PUSH 
CALL 
Lo 
CALL 
Lo 


MECA 
NC, ERR. 

HL) CABEZ. 
DE, NOMBRE 


A, (DE) 
do 
NZ, CARGA 


m 
DE 

Ay (DE) 

o 

NZ, BUCLE 


IX, ENTRA 
ESER 

1X, NOMBRE 
Lo (IX+16) 
Hy CIX+17) 
IX, CABEZ 
Es LIX+z4) 
D) (1x+2=5) 
TOS 
Wacar 
NC,ERR 


1x 
ABRDA 
0,13 

HbeSA 


a7 
msasA 


Carga la cabecera 
Acarreo a cero = error 

DE y HL apuntan hacía el 
nombre del fichero y hacia 
el nombre deseado 

Examina cada caracter 


Si no es el mismo, 
carga el siguiente encabezamiento 


Coro indica el final del nombre 
Si no es el final, pasa al 
siguiente caracter 


Extrae la direccion de carga 


Extrae la longitud de la cabecera 


Byte de sincronismo 


“Tengo que informarte que hay error" 


o 
"Continua la busqueda? 
o 


"Buscando. 


o 


"Cargando. 


o 
"TEST" 
12 
40000 


730 CABEZ DEFS 64 


Direccion de carga 
63 ceros 


Como antes, NOMBRE contiene el nombre del fichero que quieras leer 
y su dirección de carga. CABEZA es un bloque de 64 bytes para el 
almacenamiento temporal de los encabezamientos leídos en la cinta. Ob- 
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servarás (espero) que hemos usado una variación del programa ECADEN 
para escribir mensajes. Al llamar a la rutina aparecerán los mensajes: 


"Buscando. .... 
“Continua la busqueda ?" 


En ese momento, contestando cualquier cosa menos “S* o “s”, la rutina 
terminará. Esta pregunta se formulará cada vez que se lea un encabeza- 
miento que no sea el del archivo que te interese. Los errores de lectura 
también se señalan mediante mensajes apropiados. 

La última rutina para manejo de cassette que solemos necesitar es una 
función de comprobación. Esto lo realiza VERIFICA, 


VERIFICA 


Esta rutina contrasta un fichero de bytes de la cinta con un área de 
memoria del ordenador. Ello te permitirá comprobar que un área de 
memoria ha sido correctamente grabada antes de almacenar otra cosa en 
ella. 


Requisitos de entrada: Véase Comentarios. 
Condiciones de salida: Todo alterado. 


Longitud: 221 bytes, excluyendo NOMBRE y CABEZA. 
101 ae VERIFICA «e 

anos 20 Sho 40200 

3D08 Doz1cos0 30 LD IRSBUSCA 

Doc cDSt9D 0 CALL estr 

DOF DDZIAM9D SO CARGA LD 1R/OK 

DIS ED619o do CALL ESÉR 

SDIé coieDe 70 CALL sbb1o 

3019 Pers so ES 

Dia 2005 50 Sa 

DD PES 100 ES 

Dir co 110 ner 

3Dz0 íi4000 1208 LD Numero" de byten Éel encabenanimmto 

Das ZIcDOD 130 Me Los pane aqui 

3oz8 ezo 130 o Byte" para un sincronisno correcto 

3028 CDalsc 150 CAL Elrua la Eobacera 

3D2b Some 180 SA a qa 

m2 20200 17O ña DE-y HL apuntan hacia 

oso 11De7D 180 o more aaldISNeCS y hicta 
1505 el nombre deseado 

3033 18 200 BUCLE LD an Dd sao arco 

Sosa e E ES 

3035 2008 Zo ES Si no es el mismo, 
zos Carga sl Siguiente encabezamiento 

9037 23 20 mue 

5030 3 zo Te DE 

2039 18 200 LD AE 

3D3A FEO E eS ) Cero indica el final del nombre 

3030 20rS 230 ÍA Niue E Sindls pase al 
E A 

903 DDZICC9D 300 LO 1X,ENTRA 


Daz cDé1sD 310 CALL Escr 
3DAS DDZIDB9D 320 LD IXyNOMBRE ; Extrae la direccion de carga 
9049 DD6ELO 330 LDL, (mó 

SDAC DDSEI1 340 LD Hp (Ix+ 17) 

9DAF DDZLED9D 350 LD IX,CABEZ 3 Extrae la longitud de la cabecera 
9D5S DDSEIS 360 LD E, (za 

9056 DDS619 370 LD DD) (IX+25 

$039 3E16 380 LD ANPI6 1 Byte de sincronismo 
9DSB CDASBC 390 CALL Wbcas 

9DSE 3023 200 JR NC,ERR 

Deo 29 410 Rer 

9061 DOES 420 ESCR — PUSH IX 

9DES COS4BB 430 CALL abmsa 

9D6b 3EOD 430 ENE 

9D6S COSaBB 450 CALL ebesa 

9D6B_ 3E0n 180 LD Arto 

9DED COSABR= 470 CALL abesa 

9D7O DEL 400 Por ix 

%D7Z DD7EOO 490 BUCLESID A(IX 

9073 FE0O 3500 cr o 

9077 C8 510 FET z 

9078 DDES 320 PUSH IX 

9D7A COSDBB 530 CALL WeRSO 

9D7D DEL 340 POP 1x 

9D7F  DDZ3 550 INC IX 

7081 18Er 360 JR BUCLES 

3083 DDZ1909D 570 ERR LD  1X,ERROR 

D87 CDSI9D 580 CALL ESCR 

9D8A  3E07 550 LD A47 

$DeC CosaBa $00 CALL ebesa 

9D8E C9 so fer 

DIO 4372726F 620 ERROR DEFM “Error en la verificacion." 
SDA? 00 630 DEFB O 

9DAA 836FGE7S 640 0K  DEFM "Continua la busqueda?" 

SuBr 00 éso DEFB O 

SDCO 42787363 660 BUSCA DEFM "Buscando..." 

9Dca 00 $70 DEFB O 

SDEC 34657269 680 ENTRA DEFM "Verificando..." 

3DDA 00 490 DEFB O 

DDB= 54453334 — 700 NOMBRE DEFM "TEST" 

9oDF 710 DEFS 12 

DEB 4090 720 DEFW 40000 5 Direccion de carga 
SDED 730 CABEZ DEFS 64 3 64 ceros 
Comentarios 


NOMBRE debería constituirse como la rutina LEECASS, con la dife- 
rencia de que los bytes 16 y 17 de NOMBRE deberán contener ahora no 
la dirección de carga, sino la dirección desde la que los bytes fueron 
grabados. Si se detecta alguna diferencia entre el área de memoria y el 
fichero de la cinta, se produce una salida inmediata de la rutina, con un 
mensaje de error para indicar el hecho. La rutina sólo verifica el bloque de 
datos. 

Con esto completamos el capítulo sobre rutinas de manipulación de 
cassette. Para mayor información sobre las rutinas firmware, me remito al 
manual técnico de firmware de Amstrad, que es realmente útil. 
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256 veces 
¿ll acarreo. 


ERINTER- 
del dato. 


BASIC 
y código máquina 


En este capítulo veremos un par de rutinas diseñadas para ayudar al 
programador de BASIC, y algunas notas detalladas sobre la ampliación 
del sistema residente, el método para añadir órdenes del BASIC del 
Amstrad. Sin embargo. empezaremos con un par de rutinas que realmente 
no pueden integrarse en ningún otro capítulo de este libro. 


TIEMPO 


La variable del sistema, TIME, una vez calculada, contendrá el espacio 
de tiempo transcurrido desde que el ordenador se conectó. Esto no incluye 
los períodos de tiempo en que las interrupciones fueron prohibidas desde 
el interior de las rutinas en código máquina, así como los períodos de ope- 
raciones de cassette. La variable TIME es un número de 4 bytes, que se 
incrementa 300 veces por segundo. Es, por tanto, muy útil para aplica 
nes de medida de tiempo. Una característica, sin embargo, que echo en 
falta es un método para alterar la variable TIME en cualquier momento. 
Este tipo de orden es muy común en otros aparatos, como el microorde- 
nador BBC (¡cómo oso nombrar tales palabras en estas páginas!) y es muy 
útil cuando el reloj se está utilizando para cronometrar sucesos breves en 
un programa en ejecución. Normalmente tenemos que ejecutar una línea 
como 


T=TIME+GOSUB 1000:PRINT TIME-T 
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mientras que, si pudiéramos poner TIME a cero, sólo diríamos: 


CALL tiempo-a-cero:GOSUB 1000:PRINT TIME 


Con esto se ve más claro lo que intentamos realizar. Esto lo hace la 
siguiente rutina, TIEMPO. 


Requisitos de entrada: 


Desde BASIC, CALL dirección, bajo, alto, donde 
bajo son los 16 bits inferiores dentro del valor 
total de 32 bits y alto son los 16 bits superiores 
del valor total de 32 bits. 

Desde otra rutina en código máquina, IX apunta 
a un bloque de parámetros y Á contiene el 
valor 2. 


[alo lo 


09 — [ee >) 


Bloque de parámetros de TIEMPO 


Condiciones de salida: 


Longitud: 


FE0O 
2814 
FEO2 
2030 
DDSEOO 
DOS601 
DDSEOZ 
DD4403 
CD1OBD 


cero 


ESCR 


Todos los registros son alterados. La rutina fina- 
lizará si se introduce en la misma un número 
erróneo de parámetros. 


98 bytes. 


An TIEMPO 9. 
ORG 40200 . 

ceo 

IR Z,CERO $ St no hay parametros, salta a cero 
e 2 

JR NZ,ERR y Si no hay dos parametros, error 
ED E, CIXtO) 

LD D;(I+1) 5 Parte superior de TIME 

LD Lo CIxezr 

LD M,(IXe3) 5 Parte inferior de TIME 

CALL MBDIO 5 Fija el valor de TIME 

RET 

Lo ML,O 

LD DEJO 

CALL WBDIO 5 Pone a cero la variable TIME 
RET 

PUSH 1X 

CALL Basa 

LD ais 

CALL abBSO 

LD A, 10 

CALL añaSA 

POP 1x 


9DSB DD7EOO 240 BUCLE LD A,CIX) 


9DIE FEO 250 eo 
3DA0 ca 260 feroz 

9041 DOES 270 FusH dx 

3Da3 cosDeR 290 CALL amas 

9D46 DEL 290 FOR 1x 

3D48- DD23 300 INC 1X 

3DAA 18Er 310 JR BUCLE 

PDAC DDZLS99D 320 ERR LD IX/ERROR 

3DSO cD2A9D 330 CALL estr 

3os3 3207 320 Lo 7 

3D55 CosaDo 350 cau hbosa 

958 co 340 Rer 

3039 4E7SGDGS — 370 ERROR DEFM "Numero erroneo de parametrom." 
9076 380 DES 1 

Comentarios 


El hecho de que TIME sea una variable de 32 bits hace que sea más 
bien difícil introducir este valor mediante una sentencia CALL estándar. 
Por eso el nuevo valor TIME se introduce en dos partes en la rutina en 
código máquina. Así, para colocar TIME en 100, deberemos ejecutar una 
orden como: 


CALL direccion, 100,0 


con “bajo” en primer lugar. 

Los bytes del listado son para la dirección 41000, pero la rutina puede 
relocalizarse sin mucho problema. Yo suelo poner la variable TIME a 
cero, por lo que he decidido hacer de ello un caso especial. CALL 
dirección, por sí misma, hará que la variable TIME se coloque a cero. 
Proporcionaré algunas notas acerca de los valores que deben transfer 
como parámetros. El valor de TIME para cualquier combi 
“alto” y “bajo” será: 


TIME=bajo + (65536 * alto) 
Así, la orden 


CALL direccion, 0,2 


colocará TIME a (2+65536)+0, que es 131072. Desde luego, al asignar a la 
variable TIME un valor muy alto, conseguiremos llegar al tope de capaci- 
dad y la variable comenzará otra vez con el valor 0. 


Restaurando 
Todo programa mal hecho se parece un poquito a mí; son necesarias 
| un montón de correcciones después de intentar ejecutarlo, suponiendo 
que no hayas bloqueado el sistema. Por ejemplo, un problema corriente es 
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crear accidentalmente una combinación ilegible de TINTA y PAPEL, o un 
sonido interminable. 

Bueno, pues hay algunas rutinas en el firmware que pueden llamarse 
para restaurar determinadas cosas un poco después de estos incidentes. Son 
las siguientes: 


ABBAIE — mampulacion de la pantalla de texto. 
kBBOO — Teclado. 
pantalla de graficos. 


KBCA7 — Manipulacion del sonido. 
UBD37 Restaura el bloque de saltos. 


De todas ellas, £BCO2, £BCA7 y £:BD37 parecen ser las de mayor 
utilidad. £BC02 es extremadamente útil, puesto que coloca los colores en 
sus estados originales. Es muy útil cuando uno se las ha ingeniado para 
revolver la paleta del ordenador ¡estropeándolo todo! £BD37 te resultará 
il sólo si realizas algún trabajo más especializado que conlleve la altera- 
ción de las entradas del bloque de saltos. Esta rutina las devuelve a sus 
condiciones iniciales. Llamando a £¿BCA7 obtendrás la eliminación de un 
sonido que no quiere callar. También puede utilizarse ejecutando progra- 
mas para “limpiar” la memoria de sonido y parar así todo sonido que se 
esté produciendo en ese momento. 


LEEROM (LEE de la ROM) 


Como he mencionado antes en este libro, la RAM se superpone a los 
dos bloques de 16K de la ROM. POKE y PEEK operan ambos en 
posiciones de la RAM sólo en esta memoria. Sin embargo, a veces es 
interesante echar un vistazo a la ROM para ver los mensajes de error que 
aún no hayas descubierto, las estructuras de la tabla de órdenes, e incluso 
para ver cómo los programadores profesionales han diseñado una parte de 
código en particular. Esta rutina lista el contenido de las posiciones de la 
ROM en bloques de 20 bytes. Originalmente fue escrita para utilizarse con 
el modo 2 de pantalla, Las rutinas del firmware nos permiten el acceso a 
las ROM superior e inferior. 


A 
(0 [to] 


Bloque de parámetros de LEEROM 


Requisitos de entrada: 


Condiciones de salida: 


Desde BASIC, CALL dirección, comienzo, donde 
comienzo es la dirección de la primera posición 
cuyo contenido se va a listar, Desde código má- 
quina, IX apunta a un bloque de parámetros de 
2 bytes, y A 


Todos los registros son alterados. 


Longitud: 161 bytes. 
105 he LEERON mn 
9008 20 ORG 40200 
9D08 0614 30 LD B,20 y Escribir 20 bytes 
9DOA — DDSEOO so LD Ly cixor 
9DOD DDé601 so UD HICIXA1) 3 Extras la direccion de comienzo 
9D10 ES $0 OBUCLE PUSH BC 
9011 ES 70 Pus Ho 3 Guarda 10s registros 
9DIZ  CDO6B? so CALL 8906 3 Activa La ROM inferior 
9D15 FS 90 PUSH AF ; 
100 $ 
9DIÉ CDO0BY 110 CALL apooo. ; Ya ROM supertor 
9019 7E 120 Lo ao 
DIA 520890 130 LD (ÁLMACN),A y Toma un byte y lo almacena 
9DID FL 180 POr ar ) Recupera el byte de estado 
150 + de 1a ROM, 
DIE CDOCB9 160 CALL pm90c 3 Y 1a devuelve a la normalidad 
9DzZ1 El 170 POP HL 
902z ES 190 PUSH HL 
9DZS CD9O9D 190 CALL EMEXHL O 5 Escribe la direccion 
200 5 en HEXadecimal 
9026 DDZ1999D 210 LD IX,SPACIO 5 Deja un espacio 
39DZA CoDsF9D 220 CALL ESCR 
9D2D 3Aan89D 230 LD A, (ALMACIO 5 Toma el byte leído, 
39030 CD679D 240 CALL EEx 5 y lo escribe en hexadecimal 
9D33 DD21999D 250 LD IX/SPACIO. 
9D37 CDAF9D 260 CALL ESER 5 Deja otro espacio 
9D3A 3AAB9D 270 LD A,ÍALMACN) 5 Ahora lo escribe como un caracter 
9D3D CDSDBB 280 3 incluyendo codigos de control 
9DA0 3E0D. 270 
9D4Z COSABB= 300 
9043. 3E0A 310 
9D47 EDSABB= 320 3 Comienza en la siguiente línea 
oDÍR Er 330 
9D4B_ 25 340 y Siguiente byte 
Pos cl 350 
9DAD 10c1 360 y Han mádo 20 bytes? 
9DAF DDES 370 ESCR PUSH 1% 
380 CALL eBBSA 
390 POP 1x 
300 BUCLE LD A, (1 
410 e o 
420 BET Zz 
430 PUSH 1x 
430 CALL ABRSD. 
430 POP 1x 
260 1NC1X 
470 RO BUCLE 
480 EMEXA LD B,O 5 Estas rutinas han sido 
490 LD CiA 3 anteriormente comentadas 
500 RA 
310 Aeon 
570 Roa 
530 ARA 
540 SCRIBO AND Mor 
350 cr mon 
560 JR NC,PORC 
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9D78  C630 570 ADD 


9D7A CS 580 PUSH 
9078 COSaBB 59 Cai 
9D7E 1806 600 EN 
9090 0637 élO PORC ADD 
srez cs 620 Pus 
9DBS COSABR eso CALL 
9oB6 Ct 430 SALIDA POP 
5087 78 650 Lo 
9o88-— FEO! éso ce 
0Ba Ca 670 REr 
$088 79 690 Lo 
9DeC 0601 $90 p 
9DRE 18e2 700 JR 
9m%0 70 710 EMEXAL Lo 
9091 CD679D 720 CALL 
9D 7D 730 LD 
9093 CDé79D 740 CALL 
9098 co 780 Rer 
9099 2EZEZEZE 760 SPACIO DEFM . 
9Da7 770 DEFS 1 
SDAB 00 700 ALMACN DEFB O 
Comentarios 


Existen aquí tres importantes rutinas ROM, dos de las cuales ya 
hemos visto antes, al examinar la rutina CARVAR en el capítulo 3. La 
rutina en $:B900 pagina la ROM superior que contiene el intérprete de 
BASIC, y devuelve el estado de la ROM en el registro A. 

Estrictamente hablando, estas tres rutinas no son rutinas firmware 
porque están en la RAM. Una segunda idea explicará el porqué es así. 
Hay un pequeño problema al tener las rutinas de paginación dentro de 
las ROM correspondientes. Si necesitas llamar una rutina de paginación y 
la ROM en cuestión no está paginada, ¡vas a tener problemas! 

La rutina, cuando es llamada con una dirección de comienzo, escribe el 
carácter cuyo código ASCII está en la dirección examinada, incluso si el 
código ASCII leído en la dirección es el de un código de control. Podemos 
hacer esto usando la rutina £BB5D en vez de la £¿BBSA. Dado que 
LEEROM utiliza muchas subrutinas, es muy difícil relocalizarla sin la 
ayuda de un pequeño programa ensamblador. Los bytes del listado están 
preparados para la dirección 40200. Si decides relocalizar el programa, es 
importante conservarlo integramente dentro del área “depósito de memo- 
ria” de la RAM. De otro modo, cuando se paginen las ROM para tener 
acceso a su contenido, ¡parte de tu programa quedará inaccesible! No es 
una situación muy deseable. 

La rutina puede, por supuesto, usarse para leer el contenido de la 
RAM que no esté superpuesta por la ROM. 

La siguiente rutina se llama ENCUENTRA y se usa para escudriñar a 
través de un programa en BASIC y hallar textos o nombres de variables. 
Luego escribe el número de las líneas en donde se ha encontrado la 
cadena particular buscada. Antes de ver esta rutina, vamos a dar un 
vistazo al modo de almacenar en la memoria el texto de los programas 
BASIC y las posibles aplicaciones. 


| Estructura de una línea en BASIC 


Una típica línea en BASIC es de la forma: 


longitud de la línea mo 
número de línea E 
| text0 me 
' término -»-| o 


La longitud de la línea es el número de bytes de la línea completa, 
incluyendo los bytes de longitud de línea, de número de línea, y byte de 
término. El byte de término “0” actúa separando las líneas unas de otras. 
El final de un programa puede localizarse buscando a través del texto del 
programa una entrada de longitud de línea puesta a cero y una entrada de 
número de línea también a cero. 

La alteración de las longitudes y números de línea, introduciéndolos en 
las posiciones adecuadas de la memoria mediante la orden POKE, puede 
resultar bastante interesante; sin embargo, también puede parecerte que 
pierdes un programa al introducir el número de línea con POKE. El 
programa sigue ahí, pero debes proporcionar la correcta longitud de línea. 
Un punto interesante es la posibilidad de reproducir un programa ilegible, 
| y ejecutarlo aun así. Aunque eso ya es desviarse un poco del tema. El 
texto del programa en BASIC comienza en la dirección 368, con el byte 
bajo de la longitud de línea de la primera línea del programa. 

Hay que tener en cuenta que, a diferencia de otros aparatos, la primera 
línea con una sentencia REM no es el lugar más apropiado para guardar 
el código máquina, principalmente debido a que estaría en el área de la 
RAM superpuesta por la ROM. Ello aumentaría los problemas si la ROM 
fuera a ser paginada. 

En el texto actual de la línea, las palabras clave del BASIC y las 
funciones se almacenan como bytes individuales con valores entre 128 y 
255, denominados PALABRA CLAVE (TOKENS). Por ejemplo, ABS 
toma el valor 255, AFTER es 128 y REM es 197. El texto tras una señal 
REM, o una cadena entre comillas (* ”) asignada a una sentencia PRINT, 
se almacena como una secuencia de códigos ASCII, Todas las asignaciones 
en una línea de programa, como: 


100 a$="paco" 


son bastante interesantes; si la dirección de a$ se introduce en una rutina 
en código máquina, usando CALL dirección,GaS, el valor dado como 
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dirección estará en el cuerpo del programa, en la línea 100. La cuestión de 
interés es que, si modificas la cadena dentro de la rutina en código 
máquina, la línea 100 se modificará. Puedes ver esto en acción en el 
programa INTROCAD. La dirección de cualquier variable puede obtener- 
se sólo con teclear: 


PRINT— Bnombre-variable 


No tienes que incluirlo como parte de la sentencia CALL (2; puede 
usarse independientemente. Sin embargo, informaciones tales como la di- 
rección de variables son de mínimo uso en programas prácticos, dado que 
CALL te soluciona todos los detalles. 

Lo que realmente nos interesa respecto a ENCUENTRA es el modo 
en que los nombres de las variables actuales son almacenados en las líneas 
del programa. Los nombres de variables se almacenan en ASCII, añadien- 
do 128 al código ASCII del último carácter. Así, para nombres de una 
sola letra, la letra tiene 128 añadido a su código ASCII. Cuando hablo de 
último carácter me refiero a la última letra del nombre de la variable, NO 
al “identificador del tipo”, si es que existe. Así el nombre de la variable 
“paco” se almacena así: 


P 112 
a 97 

S 99 

0... .239  (111+128) 


Para lo que nos concierne, esto es lo único que necesitamos saber sobre 
almacenamiento de nombres de variables. Probablemente encontrarás un 
serio problema a la hora de buscar nombres de variables en programas 
BASIC para Amstrad; el último carácter, con el valor 128 añadido a su 
código ASCII, tiene ahora un código en el mismo intervalo que las 
PALABRAS CLAVE BASIC. Esto puede acarrear problemas, y de hecho 
los produce a veces con ENCUENTRA, en particular cuando el nombre 
de la variable que buscamos tiene sólo una letra. La rutina puede encon- 
trar ocasionalmente, buscando nombres de variable con una sola letra, 
líneas cuyo contenido es una determinada PALABRA CLAVE de BASIC 
en lugar de la variable. Sin embargo, con nombres más largos no hay 
problemas. 


ENCUENTRA 


Una rutina para encontrar textos o nombres de variables en el cuerpo 
de un programa BASIC. Los números de línea que se refieren a la 
posición del texto buscado o al nombre de la variable se imprimen en 
pantalla. 


Requisitos de entrada: Desde BASIC: CALL dirección.aa$, modo, don- 
de “modo” define si la búsqueda es en torno a 
un nombre de variable (con el último carácter 
adecuadamente modificado) cuando modo es 
—0, o en torno a un texto normal cuando mudo 

. Cuando modo =1 el último carácter de la 

cadena buscada en a$ no es modificado, por lo 

que los nombres de variables no son localizados. 

Me remito a los Comentarios para más detalles. 


Condiciones de salida: — Irrelevantes. 


Longitud: 334 bytes. 
105 dx ENCUENTRA sx 
20 ORG 42000 
FE0Z 30 Ez 
205A, 10 JR NZ,PARANS: 
DDEEOZ E LDL, Uxz 
DD6603 so LD Hc1x+3) 
7E 70 LD asco 
326405 so LD (LONG),A 5 Descriptor de anchura 
25 90 INC HL 
se 100 LD Cy CHA 
23 110 INC HL 
46 120 LD By CH 
EDASEZAS 130 LD (ÉADENA),BCF Direccion de la cadena 
DD7EOO 140 LD A,tIx*0) 
FEOL 150 ceo 1 
2817 160 IR Z/0K ; 
170 5 
3Absas 180 LD AL KLONG) 5 
ES 150 LD EA ¡el ultimo caracter del nombre 
1600 200 LO Do y de la variable sumandole 128 
18 210 DEC DE $ y almacenandolo despues 
2A62AS 220 LD ML, (CADENA) 
19 250 ADD HL) DE 
7e 240 Lo ai 
cáso 250 ADD Ay128 
77 250 LD WL))A 3 enla memoria 
SabsAS 270 LD A, (LONG) 
FEOL 200 eo 1 ; Si el nombre de la variable 
cccóaa 290 CALL Z,PROBLS 3 lo compone un solo caracter, 
DDZI7001 300 0Kk LD 1,368 5 se escribe un mensaje 
310 5 inicio del programa 
DOSEOO 320 BUCLE LD E,(1Xx0 
DDS601 330 LD D,(IX+1) 5 DE = longitud de la linea 
DDÉEOZ 340 LD Ly(IXZ) 5 HL = numero de línea 
DDÉ6OS 350 Lo es 
226045 360 LO (LINEA), ML 
70 370 LD AL 
Ba 380 or oa 
2875 390 JR Z,FINAL 5 Terminarenos cuando 
200 ; 1Heguenos a la línea cero 
AS5B CDIBBD 510 CALL eBBID 
A4SE 3870 420 JR C,FINAL 5 Si se pulsa una tecla 
430 5 tambien finalizara 
AA6O CO7OR4 420 CALL BLINEA 4 Examina la linea 
A463 DES 450 PUSH 1 
A6s El 460 POr ML 
hs6b 18 270 Deove 
A467 19 480 ADD ML,DE 3 Actualiza ML para que apunte 
A468 23 450 INC HL 3 línea 
469 ES 500 PUSH HC 3 
189 


190 


DDE1 
1808 
1850 


DOES 
El 
DDES 
DS 
cl 
08 
on 
om 
op 


»s 
110400 
19 


EDSB62AS 
cs 
18 
BE 
2808 
cl 
o 
23 
78 
BL 
20F0 


EN 
DDEL 
co 
3ASIAS 
37 

18 

ES 
2080 
z3 

13 
108 
COASAS 


1664 
3E0An 
CoSABe 
3E0D. 
COSABD 
DOES. 

ES 

DS 

ES 
2A60n5 
COReAS 
cr 

DL 

El 

DDE1 

co 
DOZ14BAS 
CODIAS 
co. 
DDZ2126A5 
COD1AS. 
co 


510 
520 
530 
540 
550 
560 
570 


PARAMS 
1 
BLINEA 


NOBIEN 


BUCLEZ 


PARAMZ 


PROBLS 


FINAL 
ESCR 


1% 

BUCLE Vuelve otra vez 

PARAMZ 5 Se necesita para un 
salto relativo 


1x 
pa 3 Comienzo de la línea en HL 
DE 
ES Y Longitud en BC 
O 
BC 
»c * Reduce la linea en cuatro bytes 
BO 3 de forma que solo 
se examine el texto 
DE 
DE,O% 
HL) DE Y Ahora HL apunta hacia 


el comienzo del texto 
DE, (CADENA); Direccion de la cadena en DE 
BC $ Guarda la longitud de la lim 


adelante 


Decrementa el contador, 
de forma que apunte 
hacía el siguiente caracter 


3 


,BUCLEL 7 a que finalice 


Restaura los registros 


y Examina el. resto para ver 
ds Y si puede continuar 
5 En caso negativo, regr 


VISTO ; Salta para escribir 
lo que encuentra 


abasa Y Retorno de carro 


BREZ 


14, TEXTOS 
ESER 


1 5 Rutinas anteriormente documentadas 
ebpsa 
A,10 
besa 


ADA 3E0D 1210 LD Apis 


AADD CDSABB 1220 CALL ABRSA 
AAEO  3E07 1230 LD A 
AGEZ CDSABB 1240 CALL BBsO 
ASES DDEL 1250 POP 1X 
AGE7 DD7EOO 1260 BUCLES LD A,CIX) 
AaEA FEOO. 1270 ceo 
ce 1280 RET Oz 
DDES 1290 PUSH 1X 
COSDBB= 1300 CALL ABBSD 
DDEL 1310 POP 1x 
DD23 1320 INC 1X 
18EF. 1330 JR BUCLES 
111027 1340 PDECHL LD DE,10000 
ASFB CDIJAS 1350 CALL POECH 
AAFE 11E803 1360 LD DE,1000 
ASOL CDIZAS 1370 CALL POECH 
ASOA 116400 1380 LD DE,100 
1370 CALL PDECH 
1400 LD DE,10 
1410 CALL PDECH 
1420 LD DE,1 


1430 PDECH XOR A 


1450 ccF 
1380 SEC ML,DE 
1970 IR C,POSAL 
1480 INCA 
1490. JR BUCLES. 
1500 PDSAL ADD HL,DE 
1510. ADD A, 430, 
1520 PUSH HL. 
1530 CALL ABBSA 
1540 PoR HL 
1550. RET 
ASZ6 50756564 1560 TEXTOL DEFM "Pueden aparecer resultados dispar 
ASIA 1570 DEFS 1 
AS4B 50617261 1580 PARA DEFM "Parametros erroneos." 
ASF 13590 DEFS 1 
AS60 9000 1600 LINEA DEFW 0000 
AS6Z 0000 1610 CADENA DEFW 0000 
AS64 00 1620 LONG — DEFR 00 


Comentarios 


Dado el extenso uso de subrutinas, este programa puede relocalizarse 
pero con dificultad. Todas las referencias a las direcciones de las subruti- 
nas necesitan alterarse, Se han usado rutinas como EDECHL y ECA- 
DEN, que hemos visto anteriormente en este libro. Los bytes dados en el 
listado son para la dirección 42000. El programa es relativamente sencillo 
de manejar. 


as="paco" : CALL 42000,Ba$,0 

buscará el nombre de la variable “paco”. No pongas el identificador del tipo 
cuando busques algo similar a “paco%” o “paco$”. Quítalo sin más. 
ENCUENTRA propondrá todas las posibilidades del nombre “paco” de 
la variable, independientemente del tipo. Si intentas buscar el nombre de 
una variable de una sola letra, el programa te avisará de los extraños 


19 


_—_— 


192 


resultados que puedes obtener. Durante una búsqueda, si quieres terminar, 
no tienes más que pulsar una tecla cualquiera. Con ello terminará la 
búsqueda. 


as="paco" : CALL 42000,Ba$, 1 


buscará un fragmento de texto que contenga “paco” en su interior. Esto 
podría ser una sentencia PRINT o REM, o podría formar parte de un 
nombre de una variable, como, por ejemplo, “pacotilla”; “paco” está 
dentro, y será detectado por ENCUENTRA. Utilizando la rutina con 
modo=0, volverá al BASIC con el último carácter de a$ alterado, al 
habérsele añadido 128 a su código ASCIL Esto no ocurre cuando mo- 
do=1. 

Hemos visto antes en este capítulo cómo el final de un programa en 
BASIC se indica mediante la aparición de la longitud de línea y del 
número de línea puestos a cero. La siguiente rutina, LONGITUD, aprove- 
cha esta circunstancia para dar la longitud en bytes de un programa en 
BASIC. 


LONGITUD 
Escribe la longitud de un programa en BASIC, 


Requisitos de entrada: CALL dirección. 
Condiciones de salida: — Irrelevantes. 


Longitud: 93 bytes. 
10 + £» LONGITUD += 
aso 20 ORG 42000 
ALO DOZI7OO1 300 LD 1X,360 5 Comienzo del programa 
hala 010000 10 Lo Eco 
A417 DOSEOO U0 BUCLE LD EjtIKeor 
pDS601 so LD D,(IXe1) y DE = longitud de la línea 
DDéEOZ 78 LD Ly CIXSZ) $ HL = numero de Línea 
DDé60s 9 Lo as 
7D 50 Lo AN 
Ba 109 ro 
As2S 2012 119 JR TAFINAL 3 SÍ es cero, hemos terminado 
Aaz7 ES 120 Pusa Hb 
haze CS 130 PUSH PO 
ñaz7 El 189 Por He $ El contenido de EC pas 
hsza 19 150 ADD HL,DE 5 Suma a HL la longitud 
AOZB ES 160 Pus Ho 
Asc Ci 179 FOR EC y Se actualiza BO 
AgzO El 180 PoR 
A4ZE DES 190 PUSH rK 
ñazo EL 200 Por 
past 18 210 DEC DE 
A43Z 19 220 ADD HDE=— 3 Actualáza ML para que apunte 
A9S3 23 230 INC ML 3 Al comienzo de la siguiente linea 
434 ES 249 Pus Ho $ Lo transfiere a IX 
ASS DDEL 250 Por 1% 
A437 1808 260 SR MUCLE 7 Vuelve otra vez 


cs AS 
El He $ BC pas 
CosFAs PDECHL 5 Lo es 
ES 
111027 DE, 10009 
CoSARs. Potoa 
118003 DE, 1009 
Cosans POECH 
116400 DE, 190 
Cosans POECH 
110800 DE,10 
CoSARS PoECH 
110100 DE, 1 
ar 400 PDECH XOR A 
37 410 BUCLES ECF 
ES 420 cer 
EDSZ 430 SEC ML,DE 
3003 440 3R CSPDSAL 
30 450 Tuc A 
187 460 ño BUCLES 
19 470 PDSAL ADD HL,DE 
éso 480 ADD A,N3O 
ES 490 Push HL 
CoSABe= 500 CALL amesa 
E 510 PoR HL 
E 320 RET 

Comentarios 


La rutina es también algo complicada de relocalizar dado el uso de 
subrutinas. Los bytes del listado son para la dirección 42000. Para usar 
esta rutina, sólo tienes que llamarla cuando lo necesites (mediante CALL). 
La longitud del programa se escribirá en pantalla, y si no hay ningún 

. programa en el ordenador, aparecerá un valor igual a cero. 


Extensiones del sistema residente 


El programa ensamblador originalmente utilizado en este libro para 
producir los listados estaba en un chip de ROM, y se invocaba tecleando 
la orden 


TASSEMBLE 


La línea vertical, obtenida desde el teclado mediante SHIFT a, notifica 
al intérprete de BASIC que el texto siguiente debe considerarse como una 
orden extra, y que los detalles para el procesamiento de la orden los 
hallará en la RAM o en la ROM. Esta facilidad que nos permite añadir 
instrucciones como ésta a la estructura de las órdenes BASIC es lo que se 
llama extensión del sistema residente o RSX para abreviar. Fundamental- 
mente es un modo de llamar a las rutinas en código máquina por su 
nombre en vez de tener que recordar su dirección, Es clara su utilidad 
cuando en un programa quieras acceder a varias rutinas diferentes desde 
BASIC. Los parámetros pueden introducirse en rutinas RSX de modo 


HA A 


prácticamente idéntico a como se introducen en rutinas en código máqui- 
na a las que se accede mediante la orden CALL. Las órdenes RSX pueden 
transferir desde código máquina al BASIC valores de las variables utilizan- 
do la función “a”; una línea como: 


¡GET,GcaracterZ 


podría, por ejemplo, esperar la pulsación de una tecla y devolver el código 
ASCII de la tecla pulsada como variable “carácter%¿”. Una línea del tipo: 


caracter = ¡GET 


ho es posible. Por ello, las órdenes RSX no son verdaderas extensiones del 
BASIC, sino que se asemejan en mayor grado a las denominadas rutinas 
CALL. Sin embargo, ello no quita para que resulten de suma utilidad. 

El intérprete de BASIC debe conocer la presencia de las órdenes RSX, 
y es una suerte que no tengamos más que llamar a una rutina del sistema 
operativo del firmware para ello. Para mostrar su funcionamiento añadire- 
mos un par de órdenes RSX, [CLS y (BARRE. 

[CLS borra la pantalla y restaura el color de encendido. 

[BARRE inicia un proceso de interrupción hasta que el siguiente barri- 
do de la pantalla haya concluido, Esto es útil para programas de gráficos, 
pues te ayuda a reducir los parpadeos. 

Ninguna de estas órdenes acepta parámetros, pero enseguida añadiré 
una orden que lo consigue. 


En el cuerpo del sistema RSX se encuentran dos tablas, la tabla de 
saltos y la tabla de nombres. Sólo te daré aquí la información necesaria 
para permitirte usar el sistema. Si quieres profundizar más, deberás consul- 
tar el manual técnico del firmware de Amsoft. 


La tabla de saltos 
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Contiene las direcciones a las que las distintas órdenes RSX añadidas 
pasan el control. Las direcciones se almacenan como parte de una instruc- 
ción JP del Z-80. 


HCOMIENZO-TABLA — DEFW nombres 5 Direccion de la tabla de nombres. 
JP rutinal 3 Primera rutina. 
JP rutina2 5 Segunda rutina. 
IP rutina3 5 y asi sucesivamente... 


La tabla de nombres la veremos enseguida. Se necesita una entrada a 
la tabla de saltos por cada orden RSX que añadas, y el orden de aparición 
es el mismo en que aparecen en la tabla de nombres RSX. 


La tabla de nombres 


Contiene los nombres actuales de las órdenes RSX que quieras añadir. 
La dirección inicial de esta tabla se almacena, con el byte bajo en primer 
lugar, en los dos primeros bytes de la tabla de saltos. 


nombres — DEFM nombre-de-la-ordeni ; nombre de rutinal 
DEFM- nombre=de-la-orden2 ; nombr rutinaz - 
DEFM- nombre-de-la-ordenS i nombre de rutina3 
DEFB 0, 3 Final de la tabla. 


Hay un punto importante sobre csta tabla a tener en cuenta, Y es que 
el último carácter del nombre de cada orden tiene el valor 128 añadido a 
su código ASCII, Y otra cuestión adicional a considerar es el orden de las 
entradas; al encontrar “nombre de la orden 1” se producirá un salto a la 
“rutina 1” y así sucesivamente, Finalmente, todas las entradas a la tabla de 
nombres deberán estar en mayúsculas. Todas las órdenes RSX introduci- 
das en el aparato se convierten en mayúsculas por el intérprete de BASIC, 
por lo que también debemos colocar los nombres de órdenes de la tabla 
en mayúsculas, recordando que el último carácter debe ser modificado. El 
intérprete requiere también 4 bytes para el espacio de trabajo, cuya ubica- 
ción en el depósito de memoria es indiferente. Una vez inicializadas, las 
tablas son “activadas” y la orden se añade a la estructura de órdenes, 
mediante una llamada a la dirección $¿BCD1 con la dirección del espacio 
de trabajo en HL y la dirección del comienzo de la tabla de saltos en BC, 
Esta llamada no deberá hacerse más de una vez para una misma tabla, 
pues de lo contrario parece ser que pueden producirse bloqueos. 

Puedes añadir también otras tablas: de órdenes, si quieres, una tras 
otra. ¡Es evidente que tendrás que procurar no poner el mismo nombre a 
dos o más órdenes RSX! 


RSX1 
Esta rutina añade dos órdenes RSX, [CLS y |BARRE. 


Requisitos de entrada: CALL dirección, donde dirección es la dirección 
de la rutina activada. Sólo deberá llamarse una 
vez. 


Condiciones de salida: — Irrelevantes. 


Longitud: 44 bytes, incluidas las tablas RSX. 
197 sr rias 

9008 E Do 40200 

308 omroo 30 LO” Bc/TABLA 

op 213090 20 LO hesraBoO 

noe coorae 0 EL EDÉDI O imictaliza la tabla 

ES pe En 
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co19aD 70 BARRE CALL ABDIP 5 que espera 
803 siguiente barrido de pantalla 
cr 90 mer 
CDOZBC 100.CLS — CALL óBCOZ 5 Rutina para CLS 
3E0c 110 LD Aj12 
COSABD 120 CALL besa 
co 130 Rer 
2790 130 TABLA DEF NOMBRS ; Direccion de la tabla de nombres 
CS1Z9D 150 JP BARRE 5 Salto a barre 
C3I69D 160 3P_ CS 3 Balto a cis 
AZ415252 — 170 NOMDRS DEFM "BARR" 3 BARRE con el ultimo caracter 
180 5 modificado 
cs 190 DEFB 197 
4390 200 DEFM "CL" 5 CLS con el ultimo caracter modificado 
D3 210 DEFB Z11 
E 220 DEFE O 3 Termino 
230 TRABJO DEFS 4 3 Espacio de trabajo 
Comentarios 


Una vez inicializadas las tablas mediante la rutina adecuada, las dos 
órdenes [BARRE y |CLS estarán en condiciones de usarse. 

La introducción de parámetros en las rutinas RSX es fácil. Es práctica- 
mente idéntica a la introducción de rutinas mediante la orden CALL. Al 
comenzar una de las rutinas RSX, el registro IX apunta a un bloque de 
parámetros y Á contiene el número de parámetros transferidos con la 
orden RSX. La colocación de los parámetros en el bloque de parámetros 
es la misma que para la sentencia CALL. La siguiente rutina, |PAUSA, n, 
demuestra todo esto. 


PAUSA 


Una orden RSX que produce un retardo de unos n/50 segundos. 
Realiza esta función mediante repetidas esperas del siguiente barrido de la 
pantalla, siendo éste un proceso que se produce cada cincuentavo de 
segundo. El retardo también puede finalizar al pulsar una tecla. 


Requisitos de entrada: |[PAUSA, n, donde n es el retardo en 1/50 de 
segundo entre 1 y 65535. 


Condiciones de salida: — Irrelevantes. 


Longitud: 105 bytes. 
10 + +s PAUSA ss 
9008 20 ORG 40200 
9Do8— 013090 30 LD BC,TARLO 
9DOB— Z15B9D 10 LD HLATRABJO 
$DOE= CODIBC E CALL ABCDI 5 Inicializa la tabla 
9011 7 $0 fer 
9D12 FEOL 7o Pausa CP 1 
DIA 2018 so RO NZ,ERROR 5 Error sí hay mas de un parametro 
9DIó DDIEOO 30 Lo cx 


9D19 DDAGO1 100 aan; 

9DIC CS 110 BUCLE. PUSH BC 
120 CALL Do 
130 CALL eBBIa 
140 JR CSFINAL 3 
150 Por Be , 
160 DEC BC ; 
170 LO AB 
180 NS 
190 JR NZ,BUCLE $ 
200 REr 5 
210 FINAL POP BC 1 
220 Rer 

7DZE DDZISF9D 230 ERROR LD IX,TEXTOL $ 

9D32  3E07 240 Lo 7 

9D34 CDSABR 250 CALL bbesa 

9D37 DD7EOO 260 BUCLEL LD ALC 

SD3A FEO 270 e o 

9D3C 2807. 200 JR Z,MECHO 

FDSE COSADO 290 CALL ADBSA 

9DS 1 DDZS 300 1NC 1x 

mas 18r2 310 JR BUCLEL 

9Da5  SEOD 320 HECHO LD 015 

9D47 COSABB 330 CALL abesa 

9D4A 3E0A 340 LD ato 

DAL COSABB 350 CALL PEBSA 

9DSF Cy 360 rer 

9050 5590 370 TABLA DEFW NOMBRS 5 

9DSZ CSIZ9D_ 300 JP Pausa 

9DSS 50415353 — 390 NOMBRS DEFM "PAUS" 7 
400 5 

9059 Cs 410 DEFB 197 

Po05A 00 420 DEFB O 

9D58 30 TRABJO DEFS 4 

DSF 50617261 — 440 TEXTOL DEFM "Parametros 

9073 450 DEFS 4 

Comentarios 


Una instrucción como 


1PAUSA, 50 


Duracion de la pausa en BC 


pretada? 
salida 


decrenenta BC y 


si todavia-no es cero, repite 
Todo realizado, final 
Vendra aqui si'se pulsa una tecla 


Escribe un mensaje de error 


Direccion de la tabla de nombres 


PAUSA con el ultimo caracter 
modi ficado 


Termino 
Espacio de trabajo 
erroneos. 


producirá un retardo de un segundo una vez que la orden haya sido 
activada accediendo a la rutina. La pulsación de una tecla durante este 
tiempo también provocará el término de la rutina. Prueba con: 


P=TIME: ¡PAUSA, 50: PRINT TIME-P 


que transforma la duración de una pausa en 1/300 segundos. 
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APENDICES 


1. Efectos de los 
códigos de control 


Código EFECTO 
0 Sin efecto, 
1 Necesita un parámetro comprendido entre O y 255. Expone el 


símbolo que corresponde al valor del parámetro. Permite mos- 
trar los símbolos asociados con los caracteres de la gama 0 a 
31, en vez de que sean tratados como códigos de control. 


2 Vuelve invisible el cursor de texto. 
3 Vuelve visible el cursor de texto. 
4 Un parámetro que será el modo de pantalla. Así PRINT 


CHRS$(4)+CHRS(1) activará el modo 1. 
5 Un parámetro entre 0 y 255. El parámetro es el código ASCII 
del carácter que quieres que se exponga en la posición del 
cursor de gráficos. 
Activa la pantalla de texto. 
Produce un pitido. 
Retrocede el cursor una posición. 
Avanza el cursor una posición. 
Mueve el cursor una línea hacia abajo. 
Mueve el cursor una línea hacia arriba. 
Limpia la ventana de texto. 
Desplaza el cursor al borde izquierdo de la línea en que se 
encuentre. 


BZD VwLUA 
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EFECTO 


20 


Un parámetro, que es considerado como el número de tinta del 


papel. 
Un parámetro, que es considerado como el número de tinta de la 
pluma. 

Borra el carácter que se encuentre en la misma posición del 
cursor de texto. (Igual que CLR,) 

Limpia la ventana desde la posición actual del cursor hasta el 
borde izquierdo. 

Limpia la ventana desde la posición actual del cursor hasta el 
borde derecho. 

Limpia la ventana desde el principio hasta la posición actual 
del cursor. 

Limpia la ventana desde la posición del cursor hasta el final de 
la ventana. 


Los códigos de control 16-20 limpian la posición actual del cursor, así 
como el resto. El espacio borrado se rellena con el color asignado al papel 


de textos. 


21 
22 


23 


24 
25 


26 


27 
28 


Desactiva la pantalla de texto. 
Un parámetro; 1 activa la opción de transparencia y O la 
desactiva. 

Un parámetro que fija el modo de gráficos. 

1 modo XOR 

2 modo AND 

3 modo OR 

0 modo absoluto o forzado. 

Intercambia la tinta del papel y pluma. 

9 parámetros. Es el equivalente a la orden SYMBOL. El primer 
parámetro es el código ASCII del símbolo a definir. El resto de 
parámetros son las definiciones de cada una de las líneas del 
carácter. He descubierto que este código provoca a veces ciertos 
problemas. 

Equivale a la orden WINDOW. Tiene 4 parámetros. Los pri- 
meros 2 parámetros especifican los bordes izquierdo y derecho 
de la ventana. No importa el orden en que introduzcas estos 
parámetros, ya que el menor es siempre considerado como 
borde izquierdo. Los siguientes 2 parámetros son las filas supe- 
rior e inferior de la ventana. Se considerará al valor más peque- 
ño como borde superior y al otro como borde inferior. 

Sin efecto. 

3 parámetros. Elige como tinta una pareja de colores. El primer 
parámetro es el número de la tinta; los 2 segundos indicañ los 
colores. 


Código EFECTO 


29 Dos parámetros. Equivale a la orden BORDER. Los dos paráme- 
tros especifican los dos colores. 

30 Desplaza el cursor a la esquina superior izquierda de la 
ventana. 

31 Dos parámetros. Equivale a la orden LOCATE. Sitúa el cursor 
de texto en la posición X,Y, donde X es el primer parámetro e 
Y es el segundo. 


Todos estos códigos de control pueden ser transferidos a la rutina 
PCONTR o a la que permanece en la dirección £ÉBBS5A. Observa que la 
rutina del firmware situada en £BB5D no actúa con estos códigos de 
control, sino que escribe el símbolo asociado a ellos. 


2. Instrucciones 
y códigos operativos 


desplazamiento - nn=número 0-65535 - n=número 0-255 


CODIGO instruccion — | copico instruccion — | CODIGO INSTRUCCION 
OBJETO FUENTE OBJETO FUENTE OBJETO FUENTE 
se Aoc al | es20 AND on 863 pro sE 
DDBE0S ADC AlIXe | css er om | cese Br a 
FOBEOS ADC ANY | opcsoses  BIT oliXea | 086s aro eL 
LS ao A: FOCBOS48 — BIT  ONMIY+ | CR6E BT SHL 
es ADC AS ca47 on DocBossE Br Ane 
29 ADC AC caso pe FOCBOSSE BT SIIVIO 
ze AAA cast 0. casr ero SA 
Le A cbaz 0.0 case SIT 58 
e A c843 o. ca69 aro 50 
80 ADC AL casa Br Om CEA Bro 50 
cezo ADC An cBas ar OL cesa E 
ED4A A erro vino | caso BIro SH 
EDSA ADC MLDE | pocsosse er 1M0X* | ceso Bro st 
EDSA CN IN ES) 
EO7A E BT LA DOC80S76 BT 6lIxa 
es ADD AMHLI | css ro 1a FOC80S76 BT sv 
DDB60S ADD AJIXed | ces pro 10 ce7 BIO SA 
FD8S0S ADD Alvia | casa Br 1D 570 ero 68 
El ADD AA ca48 Bro 1 ce ar 6. 
30 ADD AB cae mr 1 ce72 pr 6D 
ar ADD AC caso aro 1 cb73 EAS 
82 ADD AD ces6 erro zm | cra Br 6 
e ADD AE Docsosss em 20IXxa | 075 aro 6L 
8s ADD AM Foc805s6 — BIT zu | c87e EAT) 
es ADD AL casz Bro ZA DOCBOS7E BT 7IXed 
c620 ADD An caso. Bro 28 FOCBOSTE —BIT 7AWed 
09 AD HL8C | css Bro 20 carr ero 7A 
19 ADO HLDE | css2 Br 2D cs78 aro 78 
2 ADD MLML | ces Bro ZE cora aro 10 
3 ADD cesa Bro 2 Ce7A ar 10 
D009 ADD c8ss Bro 2 cera ar TE 
DO19 ADD C8sE ero si | cero ero 7A 
D029 ADD DOCB0S5€ 3110 | caro EAS 
posa ADD FOCBOSSE asvoel | ocesos CALL Con 
009 ADO isc | cast 3A FC840s cart Man 
FOIS aDo tve | cas8 38 paseos CALL NCm 
Fo29 ADD 1YAY caso 30 c4840s CALL NZmn 
Fo39 ADD VS? casa 30 Fagaos. CALL Pon 
AS AND (HL casa 3€ Eceaos CALL PEna 
ODasos AND (Ia | cese 3m E8a0s CALL PO 
FDASOS ANO (ear | caso 31 CC5405 CALL Za 
A7 ANDA c966 ac | comeos CALL m 
AD AND 8 DOC80S6S sico | sr cer 
ar AND C FOCBO568 auvia | se o 
az AND 0 c867 sn DoRE0S Ce xa 
AND E caso 48 FOBEOS Cp UVa 
AND > caer 4c er ES 
AND L c862 40 eo 8 


e e Z mee ams O An 
eo L EE eb 7A Lo AD 
Enea re caeaos -eooom 70 oo Am 
EDB1 cer ml 70 Lo AL 
EDA1 cer pDE9 po Eraid 3820 Lo An 
OS FABAOS JE ll DDA60S LO Ba 
A (0 A 0 
E + E E Lo 
Deo A to” en 
ON E le 10 es 
DEA E co 02 
E E 2 E 
de E TN eE 
DEC se 70 LD mue a LD CA 
102E DINZ. . n Lo IHLI,D: 49 LO cc 
O E O EE 
EX DEML penita EN e Lo Cn 
eN DD7008 LO X0d,B | 56 Lo DL 
O 
MALE 1007205 LD (1+d1.D. FD5605. 15) AD 
haran: bie y 007305 LO (DEd).E 57 Lo DA 
beca de E D07405 LD (06d), 50 LD D.8 
ENEE .. E 007505 LD SS 51 Lo Dc 
mos | Fis do oa | os 
O A 
E0E0! IN E ndGr FD7305 LD (VedE | Epspeeos LD DElOm 
lt UN co O ii A 
A 
FD3405 Inc 328405 AS FDSEOS LO Eva 
INCA EDA38405 LD ÍmBC | sf Lo ER 
a 5 ED538405 Lo (mn), DE 58 Lo EB 
Imc e 228405 LD (nm) HL E) Lo EC 
Ne o FD228405 LD ima) AY $8 LD EE 
INC DE ED738405. Lo (nn),SP. se Lo EH 


CODIGO instruccion | cooiso INSTRUCCION | CODIGO INSTRUCCION 
OBJETO FUENTE OBJETO FUENTE OBJETO FUENTE 
E ES or POP DE DOCBOSAE — RES SlIXed 
$0 Lo Ha El POP ML FDCBOSAE — RES 
Al o me DOE1 POP IX CBAF RES 
pe ños es EDE1 PoR 1Y CBAB RES 

' FS PUSH AF 7] RES 
a. NN E AS CBA RES 
EN OS os PUSH DE c6as RES 
Ea ajo JS PUSH ML csac RES 

. ODES PUSH IX CBAD RES 
ir ES Fi FDES. PUSH 1Y caes RES 

. case IN 
Dozasaos 10 IXim | oncsoses mes olxa | pocsoese — nes 
DD218405 LO Km FOCBOS8S RES 000 | ca97 Res 
FOZAB00S LD IYdml | co97 RES 0A Res 
FOZI8405 LO Wim seo RES 08 nes 
sE to La | cos RES 0 pes 
DDGEOS:= 1D LAI | cesz RES 0D Res 
FD6E0S vo Lava | css RES 0 hs] 
se Lo LA cesa RES 00m pos 
Es A AS 
e E cese TN 
ha O DocBoS8E RES 11XrW) | Pocgosee RES 
Ces Tes HC FOCBOSSE RES 101Y90) | cagr ES 
ps Lar aL casF RES LA pr E 
2620 LO La o pi ceso RES 
EDar ES caes Be) Je CBBA RES 
EO78B40S LD SPA | Cin a c68B RES 
Fo vo semi | C68e a asc RES 
DOF Lo SP4X cane qe A ceso RES 
FOFO Lo sPNY Ez Lao ca RET 
idas O c896 TN 1 RETO 
AE LoS! DOCBOS9s RES 20IXe0 | 8 RETOM 
Eoes Los FDCBOS9 RES 2lIY»9 | Do RETO NO 
EDAO Lor ca97 RES 24 co RETO nz 
EDBO LoIR cago RES 28 Fo Aer. 
ED4S NEG cast Res 20 Es RETO PE 
00 Nor Cs92 RES 2D Eo AS 
86 TA) 893 RES 2E ca RT z 
DOBSOS OR (IX | caos RES 25 Ea pia 
FoBs0s OR (vee | caos RES 21 Eos RETN 
er or A C89E mes 30m | cts AA 
50 oa. 8 DOCBOS9E RES AI | Dpcsosts AL MA 
E a FDCBOS9E RES 311 | FoCBOSIS RL (IV 
eS ña a ca9r RES JA c817 ALO A 
da o caos RES 38 cs1o AB 
12 e A caso RES 30 csm Aoc 
A o caga RES 3D 6812 AD 
ED88 otoR da a dE cat Ro E 
Des: Sua ceso RES 3 cara A] 
E079 OUT ICA ceso AE aL car Roo L 
Ena ae c8a6 TN E ALA 
EDao OUT dore DOCBOSAS RES 4lix»a | caos ALC HL 
pee UE y 16D FOCBOSAS RES 8d | pDcsos0É ALC (xo 
oos' E CBA7 RES FOCBOSOS ALC ved 
Dal Ata cBAo RES c807 ALCA 
EDS: E c8as RES c800 ALC 8 
D320 OUT (ma c6az la) Caos “e e 
EDAD Ouro CBA Res 802 ALC D 
EDAS our ca RES 803 ALO E 
5] POP AF Chas Res C804 ALC OH 
cr ES CBA Res c80s ALC dl 


CODIGO istauecion | conico INSTRUCCION | coDico INSTRUCCION 
OBJETO FUENTE OBJETO FUENTE OBJETO. FUENTE 
07 ALCA EDCBOSCE SET 1MYr8) | FOCBOSFE SET 740Ys0 
EDer ALO cecr SET 1A Carr SET 7A 
CB1E ARA caca SET 18 cars SET 78 
pocsoste AR (xs | csco Ser 10 5) Ser 70 
FOCBOSIE AR (ved | caca SET 10 CBFA SET 70 
csi AAA caca SET 1 care SET 7E 
cera AA oO8 cscc SET 1H care SET 7H 
Cato AC caco SET 1 c8FO Ser 7L 
CEA AR D c8Ds ser 2 | cs26 SA (AL 
c818 AR E DocBosD6S ser 2fIxsw | DDcsos26 Slax 
c810 ARA FDCBOSD6 SET 24IYed | FDCBOS26 Sta UY 
ca10 AR OL c507 SET 24 c827 SIA A 
1F ARA c8Do SET 28 cezo sa 8 
c80E AAC AL) c6D1 ser 20 ce21 sa Cc 
pOCBOS0E —ARC (IXod | cso2 Ser 20 c822 SIA 0 
FDCBOSOE — ARG (sd | cana SET 2£ c823 SIA E 
caoF ARCA caba SET 2 ceza Sam 
ceos ARO 8 c8Ds SET 2L c625 SIA L 
ceo Arc Cc c608 SET 38 eze SRA (HL 
C80A Anc D C8DE ser 3 | DOCBOS2E SRA (Ia 
808 AAC E DOCBOSOE SET AMAN | FDCBOS2E SRA (0Y:0 
poa e a FOCBOSDE SET 30 | C82F SRA A 

L ceDr SET 3A 828 sRa—8 
20d pr c809 SET 3c ce29 sra Cc 
Es PA C6DA SET 30 cz sra D 
E er o c808 SET 3E ce28 sha E 
Es e on csoc SET 3m cezc CA] 
Se pe ceo SET 34 ce20 sea L 
rad pad Cee a sa 
Fl pos DDCBOSES SET Alix | ODCBOSIE SAL UXoa 
ES Pe FocBosE6 SET 4lYse) | FOCBOS3E SRL (ved 
EE n5 20 CBE7 SET 4A cesr SAL A 
Edda Esa EN ceso SET 68 cesa sa E 
e EAN [5 SET AC cesa sac 
A E SET 40 C63A sa o 
Pl A SET 4 cese sao E 
se e cera SET cas sao A 
pl AE csEs SET sl c83D sal 
E es e csEE ser sim | 96 sua IL 
E o DOCBOSEE — SET DoS60s SUB Uxea 
ha O e FOCBOSEE SET Si e | FD960s sus (Ye 
tea A caer SET 5A 97 sus A 
0 AN caes SET 58 90 sus 
EDaz sec misc | C8E9 A pe o 
E052 sec mios | “En ser 50 Pos TO: 
ED62 sec mum | C8E8 do Pod o 
£072 sec muse | CBE0 Ser pen ej a 
E Ser cae SET SL 9s sue L 
caco ser ot | cars ser 6 | 0620 SUS 
Docsoscs ser ole | Doceosf6 ser 6x0 | AE xOR HL 
Pocsoscs SET Ole | FDcBosFÉ SET 6AIWe) | PDAEOS: xOoR  (íXea 
esc7 SET DA C8F7 SET 6A FDAEOS —XOR Uva 
esco Ser 08 cero SET 68 AF xoR A 
cecr ser 0 carr SET 6 AS xoR 8 
esc2 ser 0D cer2 SET 60 AD xoR € 
E8c3 SET 0£ cera SET 6E AR xoR Do 
ceca Ser om cara SET 56m AS xoR E 
c8cs ser OL Cars Ser SL AC A] 
C8cE ser 1 | care ser 74 | ao xoR 
Docbosce ser 14IXrl | Docsosfe ser 710 | Eso xOR 

—y 


(Cortesia de Zilog Inc.) 


3. Efecto de las 
instrucciones sobre 


los flags 


INSTRUCCION c|z fer N | H | RESULTADOS 

ADC HL, SS * || v [4 | 0 | x | Suma de 16 bits con acarreo. 

ADX s, ADD s * | | v [4 | 0 | 4 | Suma de 8 bits; suma con aca- 
eo. 

ADD DD, SS * |—-|—-|—-[o Suma de 16 bits. 

AND s o | + | * || 0 | 1 | Operaciones lógicas. 

BT bs =| «| x |x| 0 | 1 | 81 estado del bit b de la direc- 
ción S es copiado en el flag Z. 

ccF + (—|—|—| 0 | x | Complementa el acarreo. 

CPD, CPDR; CPI; CPIR =|« | | x | 1 | x | instrucciones de búsqueda de 
bloques. si A=(HL); en 
otro caso, 2=0. P/V=1 si 
BC+0; en otro caso, P/V=0. 

cPs + | | v | 4 | 1 | 4 | Compara el acumulador. (Regis- 
to A) 

cPL —=|—|—|—| 1 | 1 | Complementa el acumulador. 

DAA +* | | P | 4 | — | 4 | Conviene a BCD al acumulador. 

DEC s =| + |v [4 | 1 | 4 | Decremento para 8 bits. 

INT, (0) —|+|P[%j|0 [0 | Entrada con direccionamiento 
indirecto. 

INC $ —=|w | v [4% 0 | 4 | Incremento para 8 bits. 

IND; INI =|*|x[x |1 |x| Entrada de bloques: Z=0 si 
Bz0; en caso contrario, Z=1 

INDR INIR =|1 [xx | 1 |x| Entrada de bloques: si 
Bz0; en caso contrario, Z=1 

LD Al LD AR — [4 we | | 0 | 0 | 1FF: El contenido del plop 
¿que habilita las interrupciones es 
copiado en el indicador P/V. 

LDD, LD! —=|x | 4 | x | 0 | 0 | Instrucciones de transferencia de 

LODR; LDIR —=[x fo |x|0 [0] bloques. P/V=1 si BC40; en 
caso contrario, P/V=0. 

NEG * (| v 4 [1 | 4 | Niega el acumulador. 

OR s o | |P [4 | 0 | 0 | OR lógica al acumulador. 

OTDR; OTIR = | 1 |x [|x| 1 | x | salida de bloques: Z=0 si Bx+0; 
de otra forma, 

OUTD; OUTI =lw|x[x]1 | x] saida de bloques: 2=0 si 
B40; de otra forma, Z=1. 

RLA; RLCA; RRA; RRCA * |—|—|-— | 0 | 0 | Rotación del acumulador. 

RLD; RRD —|+ | | (0 | 0 | Rotación de bits a izquierda y 


derecha. 
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ALS; RLCs; RRs; RRCs; 
SLAs; SRAs; SRLs 


Rotación y desplazamiento de la 
dirección s. 


SBC HL, SS Diferencia con acarreo pera 16 
lt. 

scr Activa el acareo. 

SBC s; SUB $ Diferencia con acarreo para 8 
bits. 

XOR 9 OR-exclusivos del acumulador. 


Símbolo 


OPERACION 


p/v 


Indicador o flag de acarreo. C=1 si la operación produce un 
acarreo del bit más significativo del operando o del resultando. 
Indicador de cero. Z=1 si el resultado de la operación es cero. 
Indicador de signo. S=1 si el bit más significativo del resultado 
es uno, esto es, si es un número negativo. 

Flag de paridad o de desbordamiento. El mismo indicador es 
compartido para la paridad (P) y para el desbordamiento (V). 
El flag se verá afectado como paridad con operaciones lógicas, 
mientras que las operaciones aritméticas lo afectan como indi- 
cador de desbordamiento del resultado. 

Cuando P/V contiene la paridad, P/V=1 si el resultado de la 
operación es par; P/V=0 si el resultado es impar. 

Cuando P/V contiene el desbordamiento, P/V=1 si el resultado 
de la operación provoca un desbordamiento. 

Indicador de medio acarreo. H=1 si la operación de suma o 
resta provoca un acarreo del bit 4 del acumulador. 

Flag de sumafresta. N=1 si la operación anterior fue resta. 
H y N son utilizados conjuntamente con la instrucción (DAA) 
de ajuste a modo BCD, para obtener resultados apropiados a 
este formato BCD. Los operandos de la suma o resta también 
deben estar en el formato BCD. 

El flag queda afectado de acuerdo con el resultado de la opera- 
ción, 

El indicador no es afectado por la operación. 

El indicador es colocado a cero (=0), 

El indicador es colocado a uno (=1). 

Resultado desconocido para el indicador. 

El indicador P/V es afectado de acuerdo con el desbordamiento 
del resultado de la operación. 

Cualquiera de los registros de la CPU: A,B,C,D,E,H,L. 
Cualquier posición de 8 bits para todos los modos de direccio- 
namiento permitidos por ese tipo de instrucción. 

Cualquier posición de 16 bits para todos los modos de direccio- 
namiento permitidos por esa instrucción. 

Registro de refresco. 

Número de 8 bits en la gama 0-255. 

Número de 16 bits en la gama 0-65535. 
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lidas de la ROM. 

Webb, David: LENGUAJE MAQUINA AVANZADO PARA ZX SPECTRUM. 

Zoks, Rodnay: El LIBRO DEL BASIC. 


ATT ee 


¡Daie a tu AMSTRAD CPC 464/664/6128 toda la potercia del led 
máquina sin esfuerzo!: RUTINAS EN LENGUAJE MAQUINA PARA 
AMSTRAD te facilita el acceso a las entrañas de tu microordenador. 


' Si estás empezando a profundizar en la programación de tu AMSTRA( 
encontrarás libro multitud de rutinas máquina que producen 

efectos absolutamente sorprendentes y con las que podrás desarrollar 
fácilmente multitud de aplicaciones y programas de calidad profesional. 


| Si eres un programador habitual en código máquina, RUTINAS EN 

| LENGUAJE MAQUINA PARA AMSTRAD reducirá a la décima parte 
| el tiempo medio de desarrollo de programas, ya que-encontrarás 
resueltas todas las rutinas habituales de manipulación de cadenas, 
operaciones de teclado, pantalla, etc. 


A lo largo del libro encontrarás, además, rutinas e información 
exhaustiva sobre: 


— Manipulación de caracteres y composición de gráficos. 

— Ruti firmware y software de desplazamiento de pantalla. 

— Técnicas gráficas avanzadas: canje de pantallas, rellenado, 
caracteres multicolores. bh 

— Programación del GPS, registros de sonido del firmware, efectos 
de sonido. 

— Rutinas de manipulación del cassette. 

— Ampl Ín del sistema residente. 


RUTINAS EN CODIGO MAQUINA PARA AMSTRAD te llevará de la 
mano más allá de los límites del BASIC a los dominios del sistema 
operativo de tu ordenador, donde consegui: la máxima rapidez y 
eficiencia para tus programas. 


